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Overview 


Introduction 


EXBASIC is one of the most extensive implementations of BASIC 
available for the Z80 microprocessor. This version (Release 5.0 
and all higher numbers) of BASIC meets the ANSI qualifications for 
BASIC as set forth in document BSRX3.60- 1978. Each release of 
BASIC consists of two upward compatible products: Extended 
Cassette BASIC (EXCAS) and Disk BASIC (EXBASIC). This manual is a 
reference for both products. 

There are significant differences between the 5.04/2 release of 
EXBASIC and previous releases (release 5.03 and earlier). If you 
have programs written under a previous release of EXBASIC, or 
MBASIC, check Appendix A for new features in 5.04 that may affect 
execution. 

Exidy has also made many modifications and added many enhancements 
to the Microsoft product, such as the use of Sorcerer graphics, 
serial printing, video cursor positioning. Sorcerer screen and RAM 
sizes, and so on. These changes are incorporated throughout the 
manual. A summary of these changes will also be found in Appendix A. 

One stroke command words available in ROM BASIC are different in 
EXCAS and EXBASIC, and no longer available. Due to the multiplicity 
of new commands these two versions now offer, the command table logic 
allowing one-stroke commands has been completely redesigned, thus 
making it necessary for you to now type out all commands. 

This manual is intended to be a reference and not a tutorial in BASIC. 
The Exidy Standard ROM BASIC manual will instruct those who need a 
learning text. 

This manual is divided into three large chapters plus a number of 
appendices. Chapter 1 covers a variety of topics, largely 
pertaining to information for using EXCAS and EXBASIC. Chapter 2 
contains the syntax and semantics of every command and statement 
in EXCAS and EXBASIC, ordered alphabetically. Chapter 3 
describes all of EXCAS and EXBASIC's intrinsic functions, also 
ordered alphabetically. The appendices contain information 
pertaining to the CP/M operating system; plus lists of error 
messages, ASCII codes, and math functions; helpful information on 
assembly language subroutines, disk I/O, converting programs, as 
well as a listing of the reserved words, alphabetically and 
numerically. 
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How to Load EXCAS, Extended Cassette BASIC 

To use Extended Cassette BASIC (EXCAS), you need at least a 32K 
Sorcerer to hold the 18.5K bytes required for the Extended Cassette 
BASIC program storage, and the lK-plus bytes for its data storage. 

To load the Extended Cassette BASIC, hook up your system according to 
the instructions explained in the Guided Tour of Personal Computing 
Manual. Plug one of the cassette cables in the MIC or AUX port of 
your cassette recorder, and place the other end into the MIC port in 
the back of the Sorcerer. The other cable plugs into the EAR outlet 
on the recorder and, similarly, into the EAR port on the Sorcerer. 

Your tone and volume may need adjusting for tape recording and 
playback. If you don't know the proper settings, try putting the 
tone at its maximum (treble) and the volume at about half its maximum. 
If this doesn't work correctly, try experimenting with other 
settings. 

Use a low noise, high frequency tape for best results in recording. 
We recommend Exidy's data cassettes (Part No. DP 3001). 

To call up EXCAS, turn on your system, check that all connections and 
settings are proper, and put your cassette containing the EXCAS 
program into the recorder. Rewind tape if necessary. Type the 
monitor command LOG EXCAS (no carriage return) , turn recorder on in 
the play mode and immediately strike RETURN on your keyboard. When 
the EXCAS program is found, these messages appear (user input is 
underlined): 


EXIDY STANDARD MONITOR 
VERSION 1.0 

COPYRIGHT (C) 1978 BY EXIDY INC. 

THE TOP OF RAM IS XXXX HEX 
STACK BEGINS FROM XXXX HEX 


> LOG EXCAS <return> 

FOUND - EXCAS E 4959 0100 0100 


LOADING- 
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After about three minutes, this message appears in the upper left 
corner of your screen: 

Exidy Extended Cassette Basic Version 5.11/2 
Copyright (c) 1980 by Exidy Inc. 

XXXXX Bytes free 

Ok 


Turn off your recorder, and you may now begin programming in BASIC. 
Be sure to keep your EXCAS tape program safe by removing the tape from 
the recorder after loading it. Save your programs on a separate 
cassette tape. 

If you have the ROM PAC BASIC, do not use it when using EXBASIC or 
EXCAS. Also, the PP command you may be familiar using when in the 
monitor and ROM PAC is a function of the ROM PAC only, and will not 
respond when you are using EXBASIC or EXCAS. 


How to Load EXBASIC, Disk BASIC 

To use Disk BASIC (EXBASIC) , you need at least a 32K Sorcerer (and 
CP/M) to hold the approximately 24K bytes of RAM required fit EXBASIC 
program storage and work areas. A 48K Sorcerer (and CP/M 
reconfigured to 43K) is required to accomodate BASIC programs 
needing more than IK bytes of RAM area. 

The CP/M version of EXBASIC is supplied on a standard size 5 
1/4" quad density diskette. The name of the file is EXBASIC.COM. 

To run EXBASIC, bring up CP/M and type the following (your input is 
underlined): 

A> EXBASIC <carriage return> 

The system replies: 

EXBASIC version 5.04/2 
Copyright 1980 (c) by Exidy Inc. 
xxxxx Bytes Free 
Ok 
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The full format of the command line is: 

A> MBASIC [<filename>H/F:<number of files>][/M:<high est memory 

location>H/S:<max record size>] 


If <filename> is present, EXBASIC proceeds, as if a RUN 
<filename> command were typed after initialization is 
complete. A default extension of .BAS is used if none 
supplied and the filename is less than 9 characters long. 
This allows BASIC programs to be executed in batch mode 
using the SUBMIT facility of CP/M. Such programs should 
include a SYSTEM statement (see below) to return to. CP/M 
when they have finished, allowing the next program in the 
batch stream to execute. 


If /F:<number of files> is present, it sets the number of 
disk data files that may be open at any one time during the 
execution of a BASIC program. Each file data bl °cl< 
allocated in this fashion requires 166 bytes of memory. It 
the /F option is omitted, the number of files defaults to 3. 

The /M:<highest memory location> option sets the highest 
memory location that will be used by EXBASIC. In some cases 
it is desirable to set the amount of memory well below the 
CP/M's BDOS to reserve space for assembly language 
subroutines. In all cases, <highest memory location> should 
be below the start of BDOS (whose address is contained in 
locations 6 and 7). If the /M option is omitted, all memory 
up to the start of BDOS is used. 

The /S:<maximum record size option> sets.the maximum record 
for use with random files. The default is 128 bytes. 
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NOTE 


The <number of files>, Chighest 
memory location> and <max record 
size> fields are numbers that 
may be either decimal, octal 
(preceded by &0) or hexadecimal 
(preceded by &H). 

Examples: 

A>EXBASIC PAYROLL.PRG Use all memory and 3 files, 

load and execute PAYROLL.PRG. 


A>EXBASIC INVENT/F:6 Use all memory and 6 files, 

load and execute INVENT.BAS. 

A>EXBASIC /M:32768/S:256 Use first 32K of memory and 

3 files with random records 
no bigger than 256 bytes. 


A>EXBASIC DATACK/F:2/M:&H9000 

Use first 36K of memory, 2 
files, and execute DATACK.BAS. 


Basic Conversion Routines 

In addition to the now Extended Cassette BASIC program, Exidy now 
supplies conversion routines necessary to upgrade BASIC programs of 
an older version to this enhanced version. Complete details on the 
operation of these utilities are included as Appendix J of this 
manual. 

RM2EX- cassette-based program which converts a ROM PAC BASIC 
tape program to an EXCAS program cassette tape. This is needed 
because the ROM PAC and EXCAS program (and therefore tape) formats 
are different. EXCAS is a much more powerful program than the ROM 
BASIC. Note conversion is only one direction. 

EXT2DSK- a disk-based program which converts an EXCAS tape file to 
a CP/M disk file readable by EXBASIC. This is necessary make a disk 
file from the tape program since Disk BASIC cannot accept tape files 
This is included with the EXBASIC Disk BASIC product. Note 
conversion is only one direction. 

R0M2DSK - a BASIC ROM PAC Disk Conversion Routine which converts a 
ROM PAC tape program file to a CP/M disk file for EXBASIC. This makes 
a disk file from the tape programs, since Disk BASIC cannot accept 
tape files. This is included with the EXBASIC Disk BASIC product. 
Note conversion is only one direction. 










EXCAS and EXBASIC 


06 


CHAPTER 1 

GENERAL INFORMATION ABOUT EXCAS and EXBASIC 

1.1 MODES OF OPERATION 


When EXCAS or EXBASIC is initialized, it types the prompt "Ok". "Ok" 
means it is at command level, that is, it is ready to accept commands. 
At this point, BASIC may be used in either of two modes: the direct 
mode or the indirect mode. 

In the direct mode, BASIC statements and commands are not preceded by 
line numbers. They are executed as they are entered. Results of 
arithmetic and logical operations may be displayed immediately and 
stored for later use, but the instructions themselves are lost after 
execution. This mode is useful for debugging and for using your 
Sorcerer as a "calculator" for quick computations that do not 
require a complete program. 

The indirect mode is the mode used for entering programs. Program 
lines are preceded by line numbers and are stored in memory. The 
program, stored in memory is executed by entering the RUN command. 


1.2 LINE FORMAT 

Program lines in a BASIC program have the following format (square 
brackets indicate optional user input): 


nnnnn BASIC statement[:BASIC statement...] Ccarriage return> 


where nnnn is the line number. 

At the programmer's option, more than one BASIC statement may be 
placed on a line, but each statement on a line must be separated from 
the last by a colon. 

A BASIC program line always begins with a line number, ends with a 
carriage return, and may contain a maximum of 255 characters in EXCAS 
and EXBASIC. 

It is possible to extend a logical line over more than one physical 
line by use of the terminal's Cline feed> key. CLine feed> lets 
you continue typing a logical line on the next physical line without 
entering a Ccarriage return>. 
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1.2.1 Line Numbers 


Every BASIC program line begins with a line number. Line numbers 
indicate the order in which the program lines are stored in memory and 
are also used as references when branching and editing. Line 
numbers must be in the range 0 to 65529. A period (.) may be used in 
EDIT, LIST, AUTO and DELETE commands to refer to the current line, the 
line last referenced. 


1.3 CHARACTER SET 


The BASIC character set is comprised of alphabetic characters, 
numeric characters and special characters. 

The alphabetic characters in BASIC are the upper case and lower case 
letters of the alphabet. 

The numeric characters in BASIC are the digits 0 through 9. 

The following special characters and terminal keys are recognized by 
BASIC: 


Character Name 


+ 

* 

/ 

A 

( 

) 

% 

# 

$ 

I 

• 

[ 

] 


& 

? 

< 

> 

\ 


Blank 

Equal sign or assignment symbol • 
Plus sign 
Minus sign 

Asterisk or multiplication symbol 

Slash or division symbol 

Up arrow or exponentiation symbol 

Left parenthesis 

Right parenthesis 

Percent 

Number (or pound) sign 
Dollar sign 
Exclamation point 
Left bracket 
Right bracket 
Comma 

Period or decimal point 

Single quotation mark (apostrophe) 

Semicolon 

Colon 

Ampersand 

Question mark 

Less than 

Greater than 

Backslash or integer division symbol 
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8 

< rubout> 
<escape> 

<tab> 

Cline feed> 
<carriage 
return> 
<clear> 
<home> 


At-sign 

Deletes last character typed. 

Escapes Edit Mode subcommands. 

See Section 2.19. 

Moves print position to next tab stop. 
Tab stops are every eight columns. 
Moves to next physical line. 

Terminates input of a line, 
clears screen and homes cursor 
homes cursor 


1.3.1 Control Characters 

The following control characters are used in BASIC: 

Control-A Left arrow and Control-A enters Edit Mode on the line 

just typed. The cursor command, instead of the 
cursor movement keys of the Word Processor, moves the 
cursor. Note if the Control-A line is not preceded 
by a line number, a carriage return will execute the 
statement. 

Here is an example of Control-A in the EDIT mode: 

Say you wish to move one line in your program (change 
the line number without retyping it). This example 
shows how you may change the line number of 2520 to 
1982: 

Program before making any changes: 

1982 INPUT "WHAT'S YOUR NAME";N$ 


• 

2510 PRINT 

2520 INPUT "WHAT'S YOUR FIRST NAME";N$ 

2530 PRINT N$", STRIKE ANY KEY WHEN READY TO RUN." 

Making changes with Control A (user input 
underlined): 
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Ok 

EDIT 2520 <RETURN> 

2520< return > 

^A [no return] 

1 11982<return> * (see note below) 

2520<return> (if 2520 is to be removed). 

* the "I" does not print on the 
screen, but must be entered to 
edit. 

Program after making changes: 

LIST 

1982 INPUT "WHAT'S YOUR FIRST NAME";N$ 


2510 PRINT 

2530 PRINT N$", STRIKE ANY KEY WHEN READY TO RUN." 


Control-C,ESC Suspends or breaks execution of a BASIC program or 
listing. Control-C breaks while ESC suspends it. 
Also interrupts CLOAD, CLOAD* or CLOAD? process in 
EXCAS only. 


Control-H 


Control-I 

Control-0 


Backspace. Deletes the last character typed 
without echoing it as SHIFT/RUB does. To wrap 
backwards over a multiline statement, use SHIFT/RUB. 

Tab. Tab stops are every eight columns. 

Halts program output while execution continues. 
A second Control-0 restarts output. (Both "O's 
print on the screen.) 


Control-R 

Control-S 

Control-Q 

Control-U 
Control-X 


Retypes the line currently being typed. 

Suspends program execution. 

Resumes program execution after a Control-S. (So 
does any other key.) 

Deletes the line currently being typed. 

Same as Control-U, a line delete character, prints a 
"#" on screen. 


@ 


Same as Control-X, a line delete character (in EXCAS 
only to be compatible with ROM BASIC). 
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1.4 CONSTANTS 

Constants are the actual values BASIC uses during execution. 
There are two types of constants, string and numeric. 

A string constant is a sequence of up to 255 alphanumeric characters 
enclosed in double quotation marks. Sorcerer graphic characters 
can be included. Examples of string constants: 

"HELLO" 

"$25,000.00" 

"Number of Employees" 

Numeric constants are positive or negative numbers. Numeric 
constants in BASIC cannot contain commas. There are five types of 
numeric constants: 

whole numbers that are between -32768 and 
+32767. Integer constants do not have 
decimal points. (Integer constants outside the 
range print with a trailing exclamation point. 
You may not put one in, but when you list a 
program, or when a program prints its output, the 
! is added.) 

Positive or negative real numbers, i.e., 
numbers that contain decimal points. 

Positive or negative numbers represented 
in exponential form (similar to scientific 
notation). A floating point constant-consists 
of an optionally signed integer or fixed point 
number (the mantissa) followed by the letter E 
and an optionally signed integer (the exponent) . 
The exponent must be in the range -38 to +38. 

Examples: 

235.988E-7 = .0000235988 
2359E6 = 2359000000 

(Double precision floating point constants use the 
letter D instead of E. See Section 1.5.1.) 


1. Integer 
constants 


2. Fixed Point 
constants 

3. Floating 
Point 
constants 
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4. Hex constants Hexadecimal numbers with the prefix 

&H. Examples: 

&H76 

&H32F 

5. Octal constants Octal numbers with the prefix &0 or 

&. Examples: 

&0347 
& 1234 


1.4.1 Single And Double Precision Form For Numeric Constants 


Numeric constants may be either single precision or double precision 
numbers. With double precision, the numbers are stored with 16 
digits of precision, and printed with up to 16 digits. 

A single precision constant is any numeric constant that has: 

1. seven or fewer digits, or 

2. exponential form using E, or 

3. a trailing exclamation point (!) 

A double precision constant is any numeric constant that 
has: 


1. eight or more digits, or 

2. exponential form using D, or 

3. a trailing number sign (#) 


Examples: 

Single Precision Constants Double Precision Constants 


46.8 

-1.09E-06 

3489.0 

22.5! 


345692811 
-1.09432D-06 
3489.0# 
7654321.1234 


650000! 


-1234567890 
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1.5 VARIABLES 

Variables are names used to represent values that are used in an BASIC 
program. The value of a variable may be assigned explicitly by the 
programmer, or it may be assigned as the result of calculations in the 
program. Before a variable is assigned a value, its value is 
assumed to be zero. For string variables and arrays, the default 
value is the null string. 


1.5.1 Variable Names and Declaration Characters 


BASIC variable names may be any length. Up to 40 characters are 
significant. The characters allowed in a variable name are letters 
and numbers, and the decimal point is allowed. The first character 
must be a letter. Special type declaration characters are also 
allowed — see below. 

A variable name may not be a reserved word. BASIC allows embedded 
reserved words. If a variable begins with FN, it is assumed to be a 
call to a user-defined function. • Reserved words include all BASIC 
commands, statements, function names and operator names. 

Variables may represent either a numeric value or a string. String 
variable names are written with a dollar sign ($) as the last 
character. For example: A$ = "SALES REPORT". The dollar sign is 
a variable type declaration character, that is, it "declares" that 
the variable represents a string. 

Numeric variable names may declare integer, single or double 
precision values. The type declaration characters for these 
variable names are: 


% Integer variable 

! Single precision variable 

# Double precision variable 

The default type for a numeric variable name is single precision. 
Examples of BASIC variable names follow. 


PI# 

MINIMUM! 

LIMIT% 

N$ 

ABC 


declares a double precision value 
declares a single precision value 
declares an integer value 
declares a string value 
represents a single precision value 
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In EXBASIC and EXCAS, a second method declares variable types. The 
BASIC statements DEFINT, DEFSTR, DEFSNG and DEFDBL may be included 
in a program to declare the types for certain variable names. These 
statements are described in detail in Chapter 2. 

1.5.2 Array Variables 

An array is a group or table of values referenced by the same 
variable name. Each element in an array is referenced by an array 
variable that is subscripted with integers or integer expressions. 
An array variable name has as many subscripts as there are 
dimensions in the array. For example V(10) references a value in a 
one-dimensional array, T(l,4) references a value in a two- 
dimensional array, and so on. 


1.6 TYPE CONVERSION 

When necessary, BASIC converts a numeric constant from one type to 
another. The following rules and examples should be kept in mind. 

1. if a numeric constant of one type is set equal to a 
numeric variable of a different type, the number is stored 
as the type declared in the variable name. (If a string 
variable is set equal to a numeric value or vice versa, a 
"Type mismatch" error occurs.) 

Example: 

10 A% = 23.42 
20 PRINT A% 

RUN 

23 

2. During expression evaluation, all of the operands 
in an arithmetic or relational operation are converted to 
the same degree of precision, i.e., that of the most 
precise operand. Also, the result of an arithmetic 
operation is returned to this degree of precision and 
printed as specified. 

Examples: 

10 D# = 6#/7 The arithmetic was performed 

20 PRINT D# in double precision and the 

RUN result was returned in D# as 

.8571428571428571 a double precision value. 


10 D = 6#/7 
20 PRINT D 
RUN 

.857143 


The arithmetic was performed 
in double precision and the 
result was returned to D 
(single precision variable) , 
rounded and printed as a sin¬ 
gle precision value. 
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3. Logical operators (see Section 1.7.3) convert their 
operands to integers and return an integer result. 
Operands must be in the range -32768 to 32767 or an 
"Overflow" error occurs. 

4. When a floating point value is converted to an 
integer, the fractional portion is rounded. 

Example: 

10 C% = 55.88 
20 PRINT C% 

RUN 

56 

5. If a double precision variable is assigned a single 
precision value, only the first seven digits, rounded, of 
the converted number are valid. This is because only 
seven digits of accuracy were supplied with the single 
precision value. The absolute value of the difference 
between the printed double precision number and the 
original single precision value will be less than 6.3E-8 
times the original single precision value. 

Example: 

10 A = 2.04 
20 B# = A 
30 PRINT A;B# 

RUN 

2.04 2.039999961853027 

1.7 EXPRESSIONS AND OPERATORS 


An expression may be simply a string or numeric constant, a 
variable, or it may combine constants and variables with operators 
to produce a single value. 

Operators perform mathematical or logical operations on values. The 
operators provided by BASIC may be divided into four categories: 

1. Arithmetic 

2. Relational 

3. Logical 

4. Functional 
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1.7.1 Arithmetic Operators 


The arithmetic operators, in order of precedence, are: 


Operator 


*,/ 




Operation 

Exponentiation 

Negation (unary minus) 

Multiplication, Floating 
Point Division 

Addition, Subtraction 


Sample Expression 

X~Y 

-X 

X*Y 

X/Y 

X+Y 


To change the order in which the operations are performed, use 
parentheses. Operations within parentheses are performed first. 
Inside parentheses, the usual order of operations is maintained. 


Here are some sample algebraic expressions and their BASIC 
counterparts. 


Algebraic Expression 

BASIC Expression 

X+2Y 

X+Y* 2 

X- 1 

X-Y/Z 

z 

XY 

X*Y/Z 

z 

X+Y 

(X+Y)/Z 

Z 

(X2)* 

(X~2)~Y 

z 

x(* ) 

X" (Y~Z) 

X(-Y) 

X*(-Y) Two consecutive 
operators must 
be separated by 
parentheses. 


1.7.1.1 Integer Division and Modulus Arithmetic 


Two additional operators are available in BASIC, integer division 
and modulus arithmetic. 
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Integer division is denoted by the backslash (\) . The operands are 
rounded to integers (must be in the range -32768 to 32767) before the 
division is performed, and the quotient is truncated to an integer. 
For example: 

10\4 = 2 
25.68X6.99 = 3 

The precedence of integer division is just after multiplication and 
floating point division. 

Modulus arithmetic is denoted by the operator MOD. It gives the 
integer value that is the remainder of an integer division. For 
example: 

10.4 MOD 4=2 (10/4=2 with a remainder 2) 

25.68 MOD 6.99 = 5 (26/7=3 with a remainder 5) 

The precedence of modulus arithmetic is just after integer division. 


1.7.1.2 Overflow and Division by Zero 

If, during the evaluation of an expression, a division by zero is 
encountered, the "Division by zero" error message is displayed, 
machine infinity (the largest number BASIC recognizes) with the sign 
of the numerator is supplied as the result of the division, and 
execution continues. If the evaluation of an exponentiation 
results in zero being raised to a negative power, the "Division by 
zero" error message is displayed, positive machine infinity is 
supplied as the result of the exponentiation, and execution 
continues. 

If overflow occurs, the "Overflow" error message is displayed, 
machine infinity with the algebraically correct sign is supplied as 
the result, and execution continues. 


1.7.2 Relational Operators 


Relational operators are used 
of the comparison is either 
result may then be used to make 
(See IF, Section 2.29.) 


to compare two values. The result 
"true" (-1) or "false" (0) . This 
a decision regarding program flow. 
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Operator 

Relation Tested 

Expression 

= 

Equality 

>• 

II 

X 

<> 

Inequality 

XOY 

< 

Less than 

X< Y 

> 

Greater than 

X> Y 

<= 

Less than or equal to 

X<=Y 

>= 

Greater than or equal to 

X>=Y 


(The equal sign is also used to assign a value to a variable. See 
LET, Section 2.33.) 

When arithmetic and relational operators are combined in one 
expression, the arithmetic is always performed first. For example, 
the expression 

X+Y < (T-l)/Z 

is true if the value of X plus Y is less than the value of T-l divided 
by Z. More examples: 

IF SIN(X)<0 GOTO 1000 
IF I MOD J <> 0 THEN K=K+1 


1.7.3 Logical Operators 

Logical operators perform tests on multiple relations, bit 
manipulation, or Boolean operations. The logical operator returns 
a bitwise result which is either "true" (not zero) or "false" (zero) . 
In an expression, logical operations are performed after arithmetic 
and relational operations. The outcome of a logical operation is 
determined as shown in the following table. The operators are 
listed in order of precedence. 
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NOT 


X 

1 

0 


NOT X 
0 
1 


AND 


X 

1 

1 

0 

0 


Y 

1 

0 

1 

0 


AND 

1 

0 

0 

0 


OR 


X 

1 

1 

0 

0 


Y 

1 

0 

1 

0 


OR 

1 

1 

1 

0 


XOR 


X 

1 

1 

0 

0 


Y 

1 

0 

1 

0 


XOR 

0 

1 

1 

0 


IMP 


X 

1 

1 

0 

0 


Y 

1 

0 

1 

0 


IMP Y 
1 
0 
1 
1 


EQV 


X 

1 

1 

0 

0 


Y 

1 

0 

1 

0 


EQV Y 
1 
0 
0 
1 


Just as the relational operators can be used to make decisions 
regarding program flow, logical operators can connect two or more 
relations and return a true or false value to be used in a decision 
(see IF, Section 2.29). For example: 

IF D<200 AND F<4 THEN 80 
IF I>10 OR K<0 THEN 50 
IF NOT P THEN 100 

Logical operators work by converting their operands to sixteen 
bit, signed, two's complement integers in the range -32768 to 
+32767. (If the operands are not in this range, an error results.) 
If both operands are supplied as 0 or -1, logical operators return 0 
or -1. The given operation is performed on these integers in 
bitwise fashion, i.e., each bit of the result is determined by the 
corresponding bits in the two operands. 
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Thus, it is possible to use logical operators to test bytes for a 
particular bit pattern. For instance, the AND operator may be used 
to "mask" all but one of the bits of a status byte at a machine I/O 
port. The OR operator may be used to "merge" two bytes to create a 
particular binary value. The following examples help demonstrate 
how the logical operators work. 


63 AND 16=16 63 = binary 111111 and 16 = binary 

10000, so 63 AND 16 = 16 


15 AND 14=14 

-1 AND 8=8 

4 OR 2=6 

10 OR 10=10 

-1 OR -2=-l 


NOT X=-(X+1) 


15 = binary 1111 and 14 = binary 1110, 
so 15 AND 14 = 14 (binary 1110) 

-1 = binary 1111111111111111 and 
8 = binary 1000, so -1 AND 8=8 

4 = binary 100 and 2 = binary 10, 
so 4 OR 2 = 6 (binary 110) 

10 = binary 1010, so 1010 OR 1010 = 
1010 ( 10 ) 

-1 = binary 1111111111111111 and 
-2 = binary 1111111111111110, 
so -1 OR -2 = -1. The bit 
complement of sixteen zeros is 
sixteen ones, which is the 
two's complement representation of -1. 

The two's complement of any integer 
is the bit complement plus one. 


1.7.4 Functional Operators 


A function is used in an expression to call a predetermined operation 
that is to be performed on an operand. BASIC has "intrinsic" 
functions that reside in the system, such as SQR (square root) or 
SIN (sine). All of BASIC's intrinsic functions are described in 
Chapter 3. 

BASIC also allows "user defined" functions that are written by the 
programmer. See DEF FN, Section 2.14. 
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1.7.5 String Operations 

Strings may be concatenated using +. For example: 

10 A$="FILE" : B$="NAME" 

20 PRINT A$ + B$ 

30 PRINT "NEW " + A$ + B$ 

RUN 

FILENAME 
NEW FILENAME 

Strings may be compared using the same relational operators that are 
used with numbers: 

=<><><=>= 

String comparisons are made by taking one character at a time left to 
right from each string and comparing the ASCII codes. If all the 
ASCII codes are the same, the strings are equal. If the ASCII 
codes differ, the lower code number precedes the higher. If, during 
string comparison, the end of one string is reached, the shorter 
string is said to be smaller. Leading and trailing blanks are 
significant. Examples: 

"AA" < "AB" 

"FILENAME" = "FILENAME" 

"X&" > "X#" 

"CL " > "CL" 

"kg" > "KG" 

"SMYTH" < "SMYTHE" 

B$ < "9/12/78" where B$ = "8/12/78" 

Thus, string comparisons can be used to test string values or to 
alphabetize strings. All string constants used in comparison 
expressions must be enclosed in quotation marks. 


1.8 INPUT EDITING 

If an incorrect character is entered as a line is being typed, it can 
be deleted by stiking the SHIFT and RUB keys simultaneously or with 
Control-H. Rubout echoes the deleted characters back to the 
screen. Control-H backspaces over each character and erases it. 
Once a character(s) has been deleted, simply continue typing the 
line as desired. 

To delete a line that is in the process of being typed, type Control- 
U. A carriage return is executed automatically after the line is 
deleted. Control—X (and § in EXCAS) have the same function. 

To correct program lines for a program that is currently in memory, 
simply retype the line using the same line number. BASIC 
automatically replaces the old line with the new line. 
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More sophisticated editing capabilities are provided with the EDIT 
command. See EDIT, Section 2.19. 

To delete the entire program that is currently residing in memory, 
enter the NEW command. (See Section 2.44.) NEW is usually used to 
clear memory prior to entering a new program. 


1.9 ERROR MESSAGES 

If BASIC detects an error that causes program execution to 
terminate, an error message is printed. For a complete list of 
BASIC error messages, see Appendix F. 


1.10 COLDSTART/WARMSTART 

You may now "warmstart" EXCAS. Previously, the only way to start 
EXCAS was with a coldstart, GO 100. The coldstart still exists, and 
when used, changes any options you may have specified to their 
default, while cleaning out the BASIC program and data in RAM. 

Now, however, if you want to go into the monitor (with the BYE 
command) and make some changes, you may return to your EXCAS program 
without losing anything. To do so, warmstart by typing "GO 103". 
This leaves your baud rate and SERIAL/PARALLEL option set as it was. 
Even if you have reset your Sorcerer, you may issue the warmstart GO 
103 and it returns you to the program which was in RAM before you were 
reset. This is also useful when you have received a CRC ERROR on tape 
or when your system may hang up on a LLIST because your parallel 
printer is not operating. In such cases, hit RESET, and type the 
warmstart GO 103. Your program will be returned to you without your 
having to retype it. (For a CRC error, you need not hit RESET.) 

EXCAS on coldstart no longer scans all of RAM to find the top of RAM. 
Instead it uses the value the monitor has already estabished, which 
is much faster. You may also reserve an area in RAM for assembly 
language subroutines and so on, by using the monitor "user" cold 
start procedure at address E006. EXCAS respects this value, 
although it makes RAM look smaller than it really is. Refer to the 
Sorcerer Software Manual (DP 5008) for more information concerning 
this. 

Upon coldstart, the default values are BAUD 1200, with output sent to 
the parallel port. 

EXCAS always allows 100H (256) bytes of RAM for the Monitor work area 
and stack at the top of RAM. 

You may also warmstart EXBASIC. This is done with the GO 100 Monitor 
command. Note that there is no GO 103 and you cannot coldstart 
EXBASIC except when issuing the EXBASIC CP/M command. 
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1.11 CP/M Filename Conventions 

In disk EXBASIC, CP/M filenames are represented by string 
expressions. Variables or constants or full expressions may be 
used. The form is: 

[d:]filename[.ext] 

where "d" is the optional drive name (the default is the logged in 
drive), "filename" and ext" are the usual CP/M name and extension, 
"ext" is only optional in the LOAD, SAVE, MERGE, and CHAIN, where the 
default is .BAS. 

Example: LOAD "PROG" 

SAVE "B:NEWTHING" 

KILL "QRST.LST" 

Refer to Appendices B and D, and the CP/M manual for more information. 
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CHAPTER 2 

EXBASIC and EXCAS COMMANDS AND STATEMENTS 


All of the EXBASIC and EXCAS commands and statements are described in 
this chapter. Each description is formatted as follows: 


Format: Shows the correct format for the instruction. See 

below for format notation. 


Versions: 


Purpose: 
Remarks: 


Lists the versions of BASIC in which the instruction is 
available (cassette, disk or both). 

Tells what the instruction is used for. 

Describes in detail how the instruction is used. 


Example: Shows sample programs or program segments that 

demonstrate the use of the instruction. 


Format Notation 

Wherever the format for a statement or command is given, the 
following rules apply: 

1. Items in capital letters must be input as shown. 

2. Items in lower case letters enclosed in angle brackets (< 
>) are to be supplied by the user. 

3. Items in square brackets ([ ]) are optional. 

4. All punctuation except angle brackets and square brackets 
(i.e., commas, parentheses, semicolons, hyphens, equal 
signs) must be included where shown. 

5. Items followed by an ellipsis (...) may be repeated 
any number of times (up to the length of the line). 

6. Items separated by a vertical bar (I) are mutually 
exclusive; choose one. 





EXCAS AND EXBASIC 


24 


2.1 AUTO 


Format: AUTO [Cline number>[,Cincrement>]] 

Versions: Cassette, Disk 


Purpose: To generate a line number automatically after 

every carriage return. 

Remarks: AUTO begins numbering at Cline number> and 

increments each subsequent line number by Cincrement>. 
The default for both values is 10. If Cline number> 
is followed by a comma but Cincrement> is not specified, 
the last increment specified in an AUTO command is 
assumed. 

If AUTO generates a line number that is already being 
used, an asterisk is printed after the number to warn 
the user that any input will replace the existing 
line. However, typing a carriage return immediately 
after the asterisk saves the line and generates the next 
line number. 


Example: 


AUTO is terminated by typing Control-C. The line in 
which Control-C is typed is not saved. After 
Control-C is typed, BASIC returns to command level. 


AUTO 100,50 

AUTO 


Generates line numbers 100, 
150, 200 ... 

Generates line numbers 10, 
20, 30, 40 ... 
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2.2 BAUD 


Format: 

BAUD expr 

Versions: 

Cassette, Disk 

Purpose: 

Exidy has added this command to allow you to change 
cassette/RS232 baud rates without going in and out of 
the monitor (with SET T=n). 

Remarks: 

The expression accompanying the BAUD command is any 
valid arithmetic expression. If the integer value is 
300, 300 baud is set. Any other value sets 1200 baud. 
1200 is the default baud value. 

Example: 

100 XYZ=150 

150 BAUD 2*XYZ 

This sets the baud rate to 300. 


100 BAUD 1200 

This sets the baud rate to 1200. The default rate is 
1200. The baud rate remains as set until another BASIC 
BAUD or Monitor SET T=n command is issued or if BASIC is 
coldstarted. An EXCAS or BASIC warmstart does not 
effect it. 
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2.3 BYE 


Format: 

BYE 

Version: 

Cassette, Disk 

Purpose: 

Exidy has added this command to put the user into the 
Sorcerer Monitor for warm starting and other purposes. 

Example: 

BYE 

Remarks: 

To reenter EXCAS, use GO 100 (coldstart) or GO 103 
(warmstart) . Note that the PP command only works with 
ROM PAC, not with EXCAS or EXBASIC. Do not use the 
monitor PP command with EXCAS or EXBASIC. 

To reenter EXBASIC, use GO 100 (warmstart). 
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2.4 CALL 


Format: 

CALL <variable name>[(<argument list>)] 

Version: 

Cassette, Disk 

Purpose: 

To call an assembly language subroutine. 

Remarks: 

The CALL statement is one way to transfer program 
flow to an assembly language subroutine. (See also the 
USR function. Section 3.41) 

<variable name> contains an address that is the 
starting point in memory of the subroutine. 
<variable name> may not be an array variable name. 
<argument list> contains the arguments that are 
passed to the assembly language subroutine. 

The CALL statement generates the same calling sequence 
used by Exidy's FORTRAN, COBOL and BASIC compilers. 
See Appendix C. 

Note that a constant may not be used for the starting 
address, such as CALL &H3000. 

Example: 

110 MYROUT=&HD000 

120 CALL MYROUT(I,J,K) 
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2.5 CHAIN 
Format: 

Version: 
Purpose: 

Remarks: 


Example: 


Example: 

Example: 

Example: 


CHAIN [MERGE] <filename>[,[<1ine number exp>] 
[,ALL][,DELETE<range>]] 


Disk 



To call a program 

and pass variables to 

it from 

the current program. 


* 

<filename> is the 
called. Example: 

name of the program 

that is 


CHAIN"PROG1" 

<line number exp> is a line number or an expression 
evaluated to a line number in the called program. It is 
the starting point for execution of the called 
program. If it is omitted, execution begins at the 
first line. 

CHAIN"PR0G1",1000 

<line number exp> is not affected by a RENUM 
command. 

With the ALL option, every variable in the current 
program is passed to the called program. (But see the 
second NOTE.) If the ALL option is omitted, the 
current program must contain a COMMON statement to list 
the variables that are passed. See Section 2.9. 

CHAIN"PR0G1",1000,ALL 

If the MERGE option is included, it allows a subroutine 
to be brought into the BASIC program as an overlay. 
That is, a MERGE operation is performed with the 
current program and the called program. The called 
program must be an ASCII file if it is to be MERGEd. 

CHAIN"PR0G1",,ALL 

If you use the ALL option and omit <line number>, you 
must use an extra comma. 

CHAIN MERGE"OVRLAY",1000 

After an overlay is brought in, it is usually desirable 
to delete it so that a new overlay may be brought in. To 
do this, use the DELETE option. 
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Example: 


Example: 


NOTE: 


NOTE: 


CHAIN MERGE"OVRLAY2",1000,DELETE 1000-5000 

DELETE occurs before the MERGE, so that' all the line 
numbers in the range to be overlaid are first deleted. 

Again, you may omit the Cline number> option, but if you 
do, you must use two commas. 

CHAIN MERGE"0VRLAY2",,DELETE 1000-5000 

The line numbers in <range> are affected by the 
RENUM command. 

The BASIC compiler does not support the ALL, MERGE, 
and DELETE options to CHAIN. If you wish to maintain 
compatibility with the BASIC compiler, it is 
recommended that COMMON be used to pass variables and 
that overlays not be used. 

If the MERGE option is omitted, CHAIN does not preserve 
variable types or user-defined functions for use by the 
chained program. That is, any DEFINT, DEFSNG, DEFDBL, 
DEFSTR or DEF FN statement containing shared variables 
must be restated in the chained program. 
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2.6 CLEAR 


Format: 

CLEAR [,[<expression2>][,<expression3>]] 

Versions: 

Cassette, Disk 

Purpose: 

To set all numeric variables to zero and all 
string variables to null; and, optionally, to set the 
end of memory and the amount of stack space. 

Remarks: 

<expression2> is a memory location which, if 
specified, sets the highest location available for use 
by BASIC. 

<expression3> sets aside stack space for BASIC. The 
default is 1000 bytes or one-eighth of the available 
memory, whichever is smaller. 

NOTE: 

In previous versions of BASIC, <expression2> set 
the amount of string space, and <expression3> set the 
end of memory. BASIC, release 5.0 and later, 
allocates string space dynamically. An "Out of string 
space error" occurs only if there is no free memory left 
for BASIC to use. 

Examples: 

Note the comma is required. 

CLEAR 

CLEAR ,32768 

CLEAR ,,2000 


CLEAR ,32768,2000 
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2.7 CLOAD 

Formats: 

Version: 
Purpose: 

Remarks: 


format 1: CLOAD progn [<unit>] 
or 

format 2: CLOAD? progn [<unit>] 
or 

format 3: CLOAD* <unit> <arrayname> 

Cassette 

This feature has been added by Exidy for loading and 
verifying EXCAS BASIC programs, and for loading numeric 
arrays. 

In the first form, CLOAD executes a NEW command 
automatically before it loads the program from cassette 
tape. Any previous program in RAM is destroyed. 
<filename> is the 1-5 character Exidy filename that was 
specif ied when the program was CSAVEd by EXCAS. <unit> 
is the optional motor number 1 or 2, default 1. 

In the second example, CLOAD? verifies tapes by 
comparing the program currently in memory with the file 
on tape that has the same filename <filename>. It 
differs from CLOAD in that it does not destroy the 
program in RAM. If they are the same, EXCAS prints 
"Ok" . If not, EXCAS prints "Bad Tape File" . The file in 
memory is not affected. Using CLOAD? after a CSAVE is a 
good way of assuring that the program was saved 
successfully. 

CLOAD* loads a numeric array that has been saved on 
tape. The data on tape is loaded into the array called 
<array name> specified when the array was CSAVE*ed. 
Note only the first two characters of an array name are 
used. The array must be predimensioned before the 
CLOAD* with a DIM statement using the same dimensions 
that existed when the array was CSAVE*ed. The type 
(integer, single, or double precision) must also be the 
same. String arrays may not be CLOAD*ed or CSAVE*ed. 
However, a conversion program from string to numeric 
arrays may be used. Use the program following this 
section to do so. 

<unit> is the Sorcerer motor control unit number (1 or 
2) to be used for the load process. The default is unit 
1. Note <unit> is required for CLOAD*. For example: 
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CLOAD PROG3 

Loads PROG3 from tape unit 1 destroying any current 
program. 

CLOAD? SEVEN 2 

Verifies that file SEVEN on unit 2 matches program in 
RAM. The current RAM program is untouched. 

1050 CLOAD* i XY 

Loads array XY (single precision) from unit 1. 

2345 CLOAD* 2 ARRAY# 

Loads array AR (double precision) from unit 2. See the 
previous example, following the CSAVE* section, which 
tests CLOAD*. 

CLOAD and CLOAD? are always entered at command level as 
direct mode commands. CLOAD* may be entered at command 
level or used as a program statement. Make sure the 
array has been DIMensioned before it is loaded. EXCAS 
always returns to command level after a CLOAD, CLOAD? is 
executed. 

The baud rate for these tape operation may be set by the 
BAUD command prior to CSAVE (note BAUD sets rate for 
both cassette and RS-232 operations). 

The following program converts strings to numeric 
arrays so that they may be CSAVE*ed and are converted 
back to strings when CLOAD*ed. 
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100 CLEAR 1000 

110 DEF ENM(X) =X-256*INT(X/256) 

120 INPUT "HOW MANY ELEMENTS IN STRING ARRAY" ;S:S=S-1 
130 DIM S$(S) 

140 L=0 

150 FOR 1=0 TO S 

160 PRINT "ENTER ELEMENT #";I+1; 

170 INPUT S$(I) 

180 M=LEN(S$(I)):IF M>L THEN L=M: 

190 NEXT I 

200 N=INT((L+2)/3)-l 
210 DIM A(S,N) 

220 FOR Z=0 TO S 
230 A$=S$(Z)sGOSUB 400 
240 NEXT Z 

250 PRINTSPRINT "START RECORDER GOING IN RECORD MODE."; 
260 INPUT " HIT 'RETURN' WHEN READY";ZZ$ 

270 CSAVE* 1 A 

280 PRINT SPRINT "YOUR ARRAY IS NOW STORED ON TAPE." 

290 PRINT "REWIND TAPE TO BEGINING." 

300 PRINT "START RECORDER GOING IN PLAY MODE." 

310 INPUT "HIT 'RETURN' WHEN READY”;ZZ$ 

320 CLOAD* 1 A 
330 FOR Z=0 TO S 
340 PRINT 

350 GOSUB 500sS$(Z)=A$ 

360 PRINT S$(Z)";s REM PRINT OUT ARRAY 
370 NEXT Z 
380 END 

390 REM SUBROUTINE TO CONVERT STRINGS TO NUJMBERS 
400 I=0sL=LEN(A$) 

410 FOR K=0 TO N 

420 A(Z,K)=0 

430 FOR J=1 TO 3 

440 1=1+1sIF I>L THEN 470 

450 A(Z,K)=256*A(Z,K)+ASC(MID$(A$,I,1)) 

460 NEXT J,K 
470 RETURN 

480 REM SUBROUTINE TO CONVERT NUMBERS BACK TO STRINGS 
500 A$="" 

510 FOR K=0 TO N 
520 Q=A(Z,K) 

530 FOR J=1 TO 3 

540 B(J)=FNM(Q)sQ=INT(Q/256) 

550 NEXT J 

560 FOR J=3 TO 1 STEP -1 
570 A$=A$+CHR$(B(J)) 

580 NEXT J,K 
590 RETURN 
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2.8 CLOSE 

Version: 
Purpose: 
Remarks: 


CLOSE[[#]<file number>[,[#]<file number...>]] 

Disk 

To conclude I/O to a CP/M disk file. 

<file number> is the number under which the file 
was OPENed. A CLOSE with no arguments closes all open 
files. 

The association between a particular file and file 
number terminates upon execution of a CLOSE. The file 
may then be reOPENed using the same or a different file 
number; likewise, that file number may now be reused to 
OPEN any file. 

A CLOSE for a sequential output file writes the final 
buffer of output. 

The END statement and the NEW command always CLOSE all 
disk files automatically. (STOP does not close disk 
files.) 


Example: 


See Appendix B 
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2.9 COMMON 


Format: 
Version: 
Purpose: 
Remarks: 


Example: 


COMMON <list of variables> 

Disk 

To pass variables to a CHAINed program. 

The COMMON statement is used in conjunction with 
the CHAIN statement. COMMON statements may appear 
anywhere in a program, though it is recommended that 
they appear at the beginning. The same variable cannot 
appear in more than one COMMON statement. Array 
variables are specified by appending "()" to the 
variable name. If all variables are to be passed, use 
CHAIN with the ALL option and omit the COMMON statement. 

100 COMMON A,B,C,D(),G$ 

110 CHAIN "PR0G3",10 
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2.10 CONT 

Format: 
Versions: 
Purpose: 

Remarks: 


CONT 

Cassette, Disk 

To continue program execution after a Control-C has 
been typed, or a STOP or END statement has been 
executed. 

Execution resumes at the point where the break 
occurred. If the break occurred after a prompt from an 
INPUT statement, execution continues with the 
reprinting of the prompt (? or prompt string). 

CONT is usually used in conjunction with STOP for 
debugging. When execution is stopped, intermediate 
values may be examined and changed using direct mode 
statements. Execution may be resumed with CONT or a 
direct mode GOTO, which resumes execution at a 
specified line number. CONT may also be used to 
continue execution after an error. 

CONT is invalid if the program has been edited in any way 
during the break. 


Example: 


See example. Section 2.65, STOP 
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2.11 CSAVE 

Formats: 

Version: 
Purpose: 

Remarks: 


format 1: CSAVE <filename> [<unit>] 
or 

format 2: CSAVE* <unit> <arrayname> 
Cassette 


This feature has been modified for Sorcerer tape 
formats. CSAVE saves an EXCAS BASIC program or an 
array currently in memory on cassette tapes. 

The format of the command is identical to the equivalent 
commands in ROM PAC BASIC. The program formats, 
however, cannot be and are not compatible. A ROM PAC 
program tape cannot be read by EXCAS and vice versa. 
Conversion with RM2EX must be used. The same holds 
true for array tape files from ROM BASIC and EXCAS which 
are of different design and are incompatible. Array 
files used in ROM must be remade for EXCAS since no 
conversion routine exists. 

The first format saves programs currently in memory on 
tape and uses the required 1-5 character <filename> as 
the filename. <unit> is the optional Sorcerer motor 
control unit number. If omitted the default is 1. 

The second format, CSAVE* saves the specified array 
tape. The array must be a numeric array (integer, 
single or double precision floating point) . For array 
names longer than two characters, only the first two are 
used. CSAVE* may be used as a program statement or as a 
direct mode command. <unit> is as above, but is 
required. 

The baud rate for these tape operations may be set by the 
BAUD command prior to CSAVE (note BAUD sets rate for 
both cassette and RS-232 operations). 
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Examples: CSAVE TIMER 

Saves the program currently in memory on cassette unit 
one under filename TIMER. 

CSAVE* 2 AB% 

Saves integer array AB on tape unit 2. 

CSAVE* 1 XRAY17# 

Saves double precision array XR on 1. 


Error "Illegal function call" results if the array 

Messages: doesn't exist for CSAVE*. 

"Type mismatch" occurs if a CSAVE* of a string array is 
attempted. 

SYNTAX ERROR in the monitor occurs for invalid filename 
formats. Reenter EXCAS with GO 103 to try again. 

The following program tests CSAVE* and CLOAD*. In it, arrays are 
initialized and CSAVE*ed, and then erased from memory. At this 
point the four arrays are CLOAD*ed and their contents are compared to 
what they were when CSAVE*ed. If any error results, error message 
occurs. 
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130 N=77 

140 DIM S(N,N),SINGLE!(N),I%(N),DB#(N) 

160 PRINT "INITIALIZING ARRAYS..." 

170 FOR 1=0 TO N 

180 SINGLE!(I)=1+1.2345 

190 1%(I)=1 

200 DB#(I)=I+7.890000000000005E+30 
210 FOR J=0 TO N 
220 S (I, J)=1*J+2.345 
230 NEXT J,I 

240 PRINT "ABOUT TO SAVE ARRAYS ON UNIT 2" 

245 INPUT "PRESS RECORD, HIT RETURN, WHEN READY";A$ 

250 PRINT "S(N,N)" 

260 CSAVE * 2 S 

270 PRINT "SINGLE!(N)" 

280 CSAVE * 2 SINGLE! 

290 PRINT "1%(N)" 

300 CSAVE * 2 1% 

310 PRINT "DB#(N)" 

320 CSAVE * 2 DB# 

330 ERASE S,SINGLE!,I%,DB# 

340 DIM S(N,N) ,SINGLE! (N) ,I%(N) ,DB#(N) 

350 PRINT "ABOUT TO LOAD ARRAYS..." 

355 INPUT "REWIND TAPE, PRESS PLAY, HIT RETURN WHEN READY";A$ 
360 PRINT "S(N,N)" 

370 CLOAD * 2 S 

380 PRINT "SINGLE! (N) " 

390 CLOAD * 2 SINGLE! 

400 PRINT "1%(N)" 

410 CLOAD * 2 1% 

420 PRINT "DB#(N)" 

430 CLOAD *2 DB# 

440 PRINT "CHECKING FOR LOADED ARRAYS..." 

450 FOR 1=0 TO N 

460 IF SINGLE! (1)01+1.2345 THEN 540 
470 IF 1%(I)<>I THEN 550 

480 IF DB# (I) OI+7.890000000000005Df30 THEN 560 
490 FOR J=0 TO N 

500 IF S(I,J)<>I*J+2.345 THEN 570 
510 NEXT J,I 

520 PRINT:PRINT"ALL IS WELL" 

530 END 

540 PRINT "SINGLE!" :GOTO 580 
550 PRINT "I%":GOTO 580 
560 PRINT "DB#":GOTO 580 
570 PRINT "S (N,N) " :GOTO 580 
580 PRINT "ERROR HAS OCCURRED" 
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2.12 CURSOR 


Format: 

CURSOR colexp, rowexp 

Version: 

Cassette, Disk 

Purpose: 

This command was added by Exidy to position the cursor 
on the video screen. 

Remarks: 

The comand CURSOR accomplishes absolute cursor 
movement, not relative. The format is: 

CURSOR colexp, rowexp 

where "colexp" is the column, 0-63, you wish to move the 
cursor and "rowexp" is the row, 0-29, you wish to locate 
the cursor. After the cursor is positioned, a PRINT 
statement may be used to place data on the screen at that 
location. Both rowexp and colexp must be any valid 
expressions whose integer values are as described 
above. Any invalid value for colexp or rowexp will 
cause "illegal function call". For example: 

100 PRINT CHR%(12) 

110 CURSOR FIX(RND(1)*64), FIX (RND(1)*30) 

120 PRINT "." 

130 GOTO 110 

This program prints dots at random places on the screen. 

Another example: 

110 CURSOR 14,22 

This puts the cursor on line 22 column 14. 

CURSOR 0,0 is a "home" cursor. 

CURSOR can be used in direct or indirect modes. 
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2.13 DATA 

Format: 
Versions: 
Purpose: 

Remarks: 


Example: 


DATA Clist of constants> 

Cassette, Disk 

To store the numeric and string constants that are 
accessed by the program's READ statement(s). (See 
READ, Section 2.57) 

DATA statements are nonexecutable and may be placed 
anywhere in the program. A DATA statement may 
contain as many constants as fit on a line (separated by 
commas) , and any number of DATA statements may be used 
in a program. The READ statements access the DATA 
statements in order (by line number) and the data 
contained therein may be thought of as one continuous 
list of items, regardless of how many items are on a line 
or where the lines are placed in the program. 

<list of constants> may contain numeric constants in 
any format, i.e., fixed point, floating point or 
integer. (No numeric expressions are allowed in the 
list.) String constants in DATA statements must be 
surrounded by double quotation marks only if they 
contain commas, colons, or significant leading or 
trailing spaces. Otherwise, quotation marks are not 
needed. 

The variable type (numeric or string) given in the 
READ statement must agree with the corresponding 
constant in the DATA statement. 

DATA statements may be reread from the beginning by use 
of the RESTORE statement (Section 2.57). 

See examples in Section 2.57, READ. 
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2.14 DEF 

Format: 
Versions: 
Purpose: 

Remarks: 


FN 


DEF FN<name>[(<parameter list>)]=<function definition> 
Cassette, Disk 

To define and name a function that is written by 
the user. 

<name> must be a legal variable name. This name, 
preceded by FN, becomes the name of the function. 
<parameter list> is comprised of those variable names 
in the function definition that are to be replaced when 
the function is called. The items in the list are 
separated by commas. <function definition> is an 
expression that performs the operation of the function. 

It is limited to one line. Variable names that appear 
in this expression are "dummy variables" in that they 
serve only to define the function; they do not affect 
program variables that have the same name. A variable 
name used in a function definition may or may not appear 
in the parameter list. If it does, the value of the 
parameter is supplied when the function is called. 
Otherwise, the current value of the variable is 
used. 

The variables in the parameter list represent, on a one- 
to-one basis, the argument variables or values that 
will be given in the function call. 

User-defined functions may be numeric or string. If a 
type is specified in the function name, the value of the 
expression is forced to that type before it is 
returned to the calling statement. If a type is 
specified in the function name and the argument type 
does not match, a "Type mismatch" error occurs. 

A DEF FN statement must be executed before the function 
it defines may be called. If a function is called 
before it has been defined, an "Undefined user 
function" error occurs. DEF FN is illegal in the 
direct mode. 


410 DEF FNAB(X,Y)=X~3/Y~2 
420 T=FNAB(I,J) 


Line 410 defines the function FNAB. The function is 
called in line 420. 


NOTE: 


You must use the space between DEF and FN. 
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2.15 DEFINT/SNG/DBL/STR 


Format: 

DEF<type> <range of letters> 

where <type> is INT, SNG, DBL, or STR 

Versions: 

Cassette, Disk 

Purpose: 

To declare variable types as integer, single 

precision, double precision, or string. 

Remarks: 

A DEFtype statement declares that the variable 
names beginning with the letter(s) specified will be 
that type variable. However, a type declaration 
character always takes precedence over a DEFtype 
statement in the typing of a variable. • 

If no type declaration statements are encountered, 
BASIC assumes all variables without declaration 
characters are single precision variables. 

Examples: 

10 DEFDBL L-P All variables beginning with 
the letters L, M, N, 0, and P 
will be double precision var- 
ables. 


10 DEFSTR A All variables beginning with 

the letter A will be string 
variables. 

10 DEFINT I-N,W-Z 

All variables beginning with 
the letters I, J, K, L, M, N, 

W, X, Y, Z will be integer 
variables. 


/ 
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2.16 DEF 

Format: 
Versions: 
Purpose: 

Remarks: 


Example: 


USR 


DEF USR[<digit>]=<integer expression> 

Extended, Disk 

To specify the starting address of an assembly 
language subroutine. 

<digit> may be any digit from 0 to 9. The digit 
corresponds to the number of the USR routine whose 
address is being specified. If <digit> is omitted, DEF 
USR0 is assumed. The value of Cinteger expression> is 
the starting address of the USR routine. See 
Appendix C, Assembly Language Subroutines. 

Any number of DEF USR statements may appear in a program 
to redefine subroutine starting addresses, thus 
allowing access to as many subroutines as necessary. 


200 DEF USR0=24000 
210 X=USR0(Y~2/2.89) 
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2.17 DELETE 


Format: DELETE[<1ine number>][-<line number>] 


Versions: Extended, Disk 


Purpose: To delete program lines. 


Remarks: BASIC always returns to command level after a 

DELETE is executed. If <line number> does not exist, 
an "Illegal function call" error occurs. 

Examples: DELETE 40 Deletes line 40 

DELETE 40-100 Deletes lines 40 through 

100, inclusive 


DELETE-40 


Deletes all lines up to 
and including line 40 
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2.18 DIM 


Format: 

DIM Clist of subscripted variables> 

Versions: 

Cassette, Disk 

Purpose: 

To specify the maximum values for array variable 
subscripts and allocate storage accordingly. 

Remarks: 

If an array variable name is used without a DIM 
statement, the maximum value of its subscript(s) is 
assumed to be 10. If a subscript is used that is 
greater than the maximum specified, a "Subscript out of 
range" error occurs. The minimum value for a 
subscript is always 0, unless otherwise specified with 
the OPTION BASE statement (see Section 2.46). 

The DIM statement sets all the elements of the specified 
arrays to an initial value of zero or null string. 

Example: 

10 DIM A(20) 

20 FOR 1=0 TO 20 

30 READ A(I) 

40 NEXT I 
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2.19 EDIT 

Format: 
Versions: 
Purpose: 
Remarks: 


EDIT Cline number> 

Cassette, Disk 

To enter Edit Mode at the specified line. 

In Edit Mode, it is possible to edit portions of a 
a line without retyping the entire line. Upon entering 
Edit Mode, BASIC types the line number of the line to be 
edited, then it types a space and waits for an Edit Mode 
subcommand. 


Edit Mode Subcommands 

Edit Mode subcommands are used to move the cursor or to 
insert, delete, replace, or search for text within a 
line. The subcommands are not echoed. Most of the 
Edit Mode subcommands may be preceded by an integer 
which causes the command to be executed that number of 
times. When a preceding integer is not specified, it 
is assumed to be 1. 

Edit Mode subcommands may be categorized according to 
the following functions: 

1. Moving the cursor 

2. Inserting text 

3. Deleting text 

4. Finding text 

5. Replacing text 

6. Ending and restarting Edit Mode 


NOTE 

In the descriptions that follow, <ch> represents 
any character, <text> represents a string of 
characters of arbitrary length, [i] represents 
an optional integer (the default is 1) , and $ 
represents the ESCAPE key. (The expression "type 
Escape" means the same as "press the ESC key," while 
"type Carriage Return" is the same, of course, as 
"hit the RETURN key.") 
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1. Moving the Cursor 


Space Use the space bar to move the cursor to the right. 

[i]Space moves the cursor i spaces to the right. 
Characters are printed as you space over them. 

Rubout In Edit Mode, [i]Rubout moves the cursor i 

spaces to the ,left (backspaces). Characters are 
printed as you backspace over them. Use SHIFT and RUB 
keys simultaneously for this. 

2. Inserting Text 

I I<text>$ inserts <text> at the current cursor 

position. The inserted characters are printed on the 
terminal. To terminate insertion, type Escape. If 
a Carriage Return is typed during an Insert command, the 
effect is the same as typing Escape and then Carriage 
Return. During an Insert command, the Rubout key on 
the terminal may be used to delete characters to the 
left of the cursor. If an attempt is made to insert a 
character that will make the line longer than 255 
characters, the character is not printed. 

X The X subcommand is used to extend the line. X 

moves the cursor to the end of the line, goes into insert 
mode, and allows insertion of text as if an Insert 
command had been given. When you are finished 
extending the line, type Escape or Carriage Return. 

3. Deleting Text 

D [i]D deletes i characters to the right of the 

cursor. The deleted characters are echoed between 
backslashes, and the cursor is positioned to the right 
of the last character deleted. If there are fewer than 
i characters to the rightofthe cursor, iD deletes the 
remainder of the line. 

H H deletes all characters to the right of the cursor 

and then automatically enters insert mode. H is useful 
for replacing statements at the end of a line. 

4. Finding Text 

S The subcommand [i]S<ch> searches for the ith 

occurrence of <ch> and positions the cursor before it. 
The character at the current cursor position is not 
included in the search. If <ch> is not found, the 
cursor stops at the end of the line. All characters 
passed over during the search are printed. 
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K The subcommand [i]K<ch> is similar to [i]S<ch->, 

except all the characters passed over in the search are 
deleted; The cursor is positioned before <ch>, and the 
deleted characters are enclosed in backslashes. 

5. Replacing Text 

C The subcommand C<ch> changes the next character to 

<ch>. If you wish to change the next i characters, use 
the subcommand iC, followed by i characters. After the 
ith new character is typed, change mode is exited and 
you return to Edit Mode. 


6. Ending and Restarting Edit Mode 

<cr> Typing Carriage Return prints the remainder of the 
line, saves the changes you made and exits Edit Mode. 

E The E subcommand has the same effect as Carriage 

Return, except the remainder of the line is not printed. 

Q The Q subcommand returns to BASIC command level, 

without saving any of the changes that were made to the 
line during Edit Mode. 

L The L subcommand lists the remainder of the line 

(saving any changes made so far) and repositions the 
cursor at the beginning of the line, still in Edit 
Mode. # L is usually used to list the line when you first 
enter Edit Mode. 

A The A subcommand lets you begin editing a line over 

again. It restores the original line and repositions 
the cursor at the beginning. 


NOTE 

If BASIC receives an unrecognizable 
command or illegal character while 
in Edit Mode, the command or character 
is ignored. 

If the CONTROL-A line is not preceded 
by a line number, a carriage return 
will execute the statement. 
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7. Syntax Errors 


When a Syntax Error is encountered during execution of a 
program, BASIC automatically enters Edit Mode at the 
line that caused the error. For example: 

10 K = 2(4) 

RUN 

?Syntax error in 10 
10 

When you finish editing the line and type Carriage 
Return (or the E subcommand) , BASIC reinserts the line, 
which causes all variable values to be lost. To 
preserve the variable values for examination, first 
exit Edit Mode with the Q subcommand. BASIC returns 
to command level, and all variable values are 
preserved. 

Control-A 

To enter Edit Mode on the line you are currently typing , 
type Control-A. BASIC responds with a carriage 
return, an exclamation point (1) and a space. The 
cursor is positioned at the first character in the line. 
Proceed by typing an Edit Mode subcommand. 


NOTE 

Remember, if you have just entered a 
line and wish to go back and edit it, 
the command "EDIT ." enters Edit Mode 
at the current line. The space is 
required. (The line number symbol 
always refers to the current line.) 


I 
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2.20 END 


Format: 

END 

Versions: 

Cassette, Disk 

Purpose: 

To terminate program execution, close all files and 
return to command level. 

Remarks: 

END statements may be placed anywhere in the 
program to terminate execution. Unlike the STOP 
statement, END does not cause a BREAK message to be 
printed. An END statement at the end of a program is 
optional. BASIC always returns to command level after 
an END is executed. 

Example: 

520 IF K>1000 THEN END ELSE GOTO 20 
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2.21 ERASE 
Format: 
Versions: 
Purpose: 
Remarks: 

NOTE: 
Example: 


ERASE <list of array variables> 

Cassette, Disk 

To eliminate arrays from a program. 

Arrays may be redimensioned after they are ERASEd, 
or the previously allocated array space in memory may be 
used for other purposes. If an attempt is made to 
redimension an array without first ERASEing it, a 
"Redimensioned array" error occurs. 

The BASIC compiler does not support ERASE. 


450 ERASE A,B 
460 DIM B(99) 
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2.22 ERR AND ERL VARIABLES 


When an error handling subroutine is entered, the 
variable ERR contains the error code for the error, and 
the variable ERL contains the line number of the line 
in which the error was detected. The ERR and ERL 
variables are usually used in IF...THEN statements to 
direct program flow in the error trap routine. 

If the statement that caused the error was a direct mode 
statement, ERL will contain 65535. To test if an 
error occurred in a direct statement, use IF 65535 = ERL 
THEN ... 

Otherwise, use 

IF ERR = error code THEN ... 

IF ERL = line number THEN ... 

If the line number is not on the right side of the 
relational operator, it cannot be renumbered by RENUM. 
Because ERL and ERR are reserved variables, neither may 
appear to the left of the equal sign in a LET 
(assignment) statement. BASIC's error codes are 
listed in Appendix F. See also ON ERROR GOTO, 2.46, 
and RESUME, 2.61. 
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2.23 ERROR 
Format: 
Versions: 
Purpose: 

Remarks: 


Example 1: 


ERROR <integer expression> 

Cassette, Disk 

1) To simulate the occurrence of an BASIC error; 
or 2) to allow error codes to be defined by the user. 

The value of <integer expression> must be greater 
than 0 and less than 255. If the value of <integer 
expression> equals an error code already in use by BASIC 
(see Appendix F) , the ERROR statement will simulate the 
occurrence of that error, and the corresponding error 
message will be printed. (See Example 1.) 

To define your own error code, use a value that is 
greater than any used by BASIC's error codes. (It is 
preferable to use the highest available values, so 
compatibility may be maintained when more error codes 
are added to BASIC.) This user- defined error code may 
then be conveniently handled in an error trap routine. 
(See Example 2.) 

If an ERROR statement specifies a code for which no 
error message has been defined, BASIC responds with the 
message UNPRINTABLE ERROR. Execution of an ERROR 
statement for which there is no error trap routine 
causes an error message to be printed and execution to 
halt. 

LIST 

10 S = 10 

20 T = 5 

30 ERROR S + T 

40 END 

Ok 

RUN 

String too long in line 30 
Or, in direct mode: 

Ok 

ERROR 15 (you type this line) 

String too long (BASIC types this line) 

Ok 
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Example 2: 


110 ON ERROR GOTO 400 

120 INPUT "WHAT IS YOUR BET";B 

130 IF B > 5000 THEN ERROR 210 


• * 

400 IF ERR = 210 THEN PRINT "HOUSE LIMIT IS $5000" 
410 IF ERL = 130 THEN RESUME 120 
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2.24 FIELD 


Format: 

FIELD[#]<file number>,<field width> AS <string 
variable>... 

Version: 

Disk 

Purpose: 

To allocate space for variables in a random file 
buffer. 

Remarks: 

To get data out of a random buffer after a GET or to 
enter data before a PUT, a FIELD statement must have 
been executed. 

<file number> is the number under which the file was 
OPENed. <field width> is the number of characters to 
be allocated to <string variable)*. 

For example, 

FIELD 1, 20 AS N$, 10 AS ID$, 40 AS ADD$ 

allocates the first 20 positions (bytes) in the random 
file buffer to the string variable N$, the next 10 
positions to ID$, and the next 40 positions to ADD$. 
FIELD does NOT place any data in the random file buffer. 
(See LSET/RSET, 2.40 and GET, 2.26. 

The total number of bytes allocated in a FIELD statement 
must not exceed the record length that was specified 
when the file was OPENed. Otherwise, a "Field 
overflow" error occurs. (The default record length is 
128.) 

Any number of FIELD statements may be executed for the 
same file, and all FIELD statements that have been 
executed are in effect at the same time. 

Example: 

See Appendix B. 

NOTE: 

Do not use a FIELDed variable name in an INPUT or LET 
statement. Once a variable name is FIELDed, it points 
to the correct place in the random file buffer. If a 
subsequent INPUT or LET statement with that variable 
name is executed, the variable's pointer is moved to 
string space. 
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2.25 FOR . 

Format: 

Versions: 
Purpose: 

Remarks: 


.NEXT 


FOR <variable>=x TO y [STEP z] 


NEXT [<variable>][,<variable>...] 

where x, y and z are numeric expressions. 

Cassette, Disk 

To allow a series of instructions to be performed 
in a loop a given number of times. 

<variable> is used as a counter. The first numeric 
expression (x) is the initial value of the counter. The 
second numeric expression (y) is the final value of the 
counter. The program lines following the FOR 
statement are executed until the NEXT statement is 
encountered. Then the counter is incremented by the 
amount specified by STEP. A check is performed to see 
if the value of the counter is now greater than the 
final value (y) . If it is not greater, BASIC branches 
back to the statement after the FOR statement and the 
process is repeated. If it is greater, execution 
continues with the statement following the NEXT 
statement. This is a FOR...NEXT loop. If STEP is not 
specified, the increment is assumed to be one. If STEP 
is negative, the final value of the counter is set to be 
less than the initial value. The counter is 
decremented each time through the loop, and the loop 
is executed until the counter is less than the final 
value. 

The body of the loop is skipped if the initial value of 
the loop times the sign of the step exceeds the final 
value times the sign of the step. 

x, y, and z do not have to be integers. 


Nested Loops 

FOR...NEXT loops may be nested, that is, a FOR...NEXT 
loop may be placed within the context of another 
FOR...NEXT loop. When loops are nested, each loop 
must have a unique variable name as its counter. The 
NEXT statement for the inside loop must appear before 
that for the outside loop. If nested loops have the 
same end point, a single NEXT statement may be used for 
all of them. 







EXCAS AND EXBASIC 


58 


The variable (s) in the NEXT statement may be omitted , in 
which case the NEXT statement will match the most recent 
FOR statement. If a NEXT statement is encountered 
before its corresponding FOR statement, a "NEXT without 
FOR" error message is issued and execution is 
terminated. 


Example 1: 


10 K=10 

20 FOR 1=1 TO K STEP 2 
30 PRINT I; 

40 K=K+10 
50 PRINT K 
60 NEXT 
RUN 
1 20 
3 30 

5 40 

7 50 

9 60 

Ok 


Example 2: 


10 J=0 

20 FOR 1=1 TO J 
30 PRINT I 
40 NEXT I 


Example 3: 


In this example, the loop does not execute because the 
initial value of the loop exceeds the final value. 

10 1=5 

20 FOR 1=1 TO 1+5 
30 PRINT I; 

40 NEXT 
RUN 

123456789 10 

Ok 


In this example, the loop executes ten times. The 
final value for the loop variable is always set before 
the initial value is set. (Note: Previous versions of 
BASIC set the initial value of the loop variable before 
setting the final value; i.e., the above loop would 
have executed six times.) 


Example 4: 


10 FOR X=1 TO 
20 FOR Y=4 TO 
30 PRINT X;Y; 
40 NEXT Y,X 
RUN 

14 15 1 
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2.26 GET 


Format: 

GET [#]<file number>[,<record number>] 

Version: 

Disk 

Purpose: 

To read a record from a random CP/M disk file into a 
random buffer. 

Remarks: 

<file number> is the number under which the file 
was OPENed. If Crecord number> is omitted, the next 
record (after the last GET) is read into the buffer. 
The largest possible record number is 32767. 


Example: 


See Appendix B 
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2.27 GOSUB...RETURN 


Format s 


GOSUB <line number> 


Versions: 
Purpose: 
Remarks: 


RETURN 

8K, Extended, Disk 

To branch to and return from a subroutine. 

<line number> is the first line of the subroutine. 


A subroutine may be called any number of times in c 
program, and a subroutine may be called from within 
another subroutine. Such nesting of subroutines is 
limited only by available memory. 

The RETURN statement (s) in a subroutine cause BASIC tc 
branch back to the statement following the most recent 
GOSUB statement. A subroutine may contain more thar 
one RETURN statement, should logic dictate a return at 
different points in the subroutine. Subroutines ma^ 
appear anywhere in the program, but it is recommended 
.that the subroutine be readily distinguishable froir 
the main program. To prevent inadvertant entry into 
the subroutine, it may be preceded by a STOP, END, or 
GOTO statement that directs program control around the 
subroutine. 

Example: 10 GOSUB 40 

20 PRINT "BACK FROM SUBROUTINE” 

30 END 

40 PRINT "SUBROUTINE"; 

50 PRINT " IN"; 

60 PRINT " PROGRESS" 

70 RETURN 
RUN 

SUBROUTINE IN PROGRESS 
BACK FROM SUBROUTINE 
Ok 
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2.28 GOTO 


Format: 

GOTO Cline number> 

Versions: 

Cassette, Disk 

Purpose: 

To branch unconditionally out of the normal program 
sequence to a specified line number. 

Remarks: 

If Cline number> is an executable statement, that 
statement and those following are executed. If it is a 
nonexecutable statement, execution proceeds at the 
first executable statement encountered after Cline 
number>. 

Example: 

LIST 

10 READ R 

20 PRINT "R =";R, 

30 A = 3.14*R~2 

40 PRINT "AREA =";A 

50 GOTO 10 

60 DATA 5,7,12 

Ok 

RUN 

R = 4 AREA =78.5 

R = 7 AREA = 153.86 

R = 12 AREA = 452.16 

?Out of data in 10 

Ok 
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2.29 IF.« 

.’.THEN [.. .ELSE] and IF. . .GOTO 

Format: 

IF <expression> THEN <statement(s)> | Cline number> 

[ELSE Cstatement(s)> I Cline number>] 

Format s 

IF Cexpression> GOTO Cline number> 

[ELSE Cstatement(s)> | Cline number>] 

Versions: 

Cassette, Disk 

Purpose: 

To make a decision regarding program flow based 
on the result returned by an expression. 

Remarks: 

If the result of Cexpression> is not zero, the THEN 
or GOTO clause is executed. THEN may be followed by 
either a line number for branching or one or more 
statements to be executed. GOTO is always followed by 
aline number. If the result of Cexpression> is zero, 
the THEN or GOTO clause is ignored and the ELSE clause, 
if present, is executed. Execution continues with the 
next executable statement. You may use a comma before 
THEN. 

Nesting of IF Statements 

IF...THEN...ELSE statements may be nested. Nesting 
is limited only by the length of the line. For example 

IF X>Y THEN PRINT "GREATER" ELSE IF Y>X 

THEN PRINT "LESS THAN" ELSE PRINT "EQUAL". 

is a legal statement. If the statement does not 
contain the same number of ELSE and THEN clauses, each 
ELSE is matched with the closest unmatched THEN. For 
example 

IF A=B THEN IF 6=C THEN PRINT "A=C" 

ELSE PRINT "AOC" 

will not print "AOC" when AOB. 

If an IF...THEN statement is followed by a line number 
in the direct mode, an "Undefined line" error results 
unless a statement with the specified line number has 
previously been entered in the indirect mode. 
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When using IF to test equality for a value that is 
the result of a floating point computation, remember 
that the internal representation of the value may not be 
exact. Therefore, the test should be against the range 
over which the accuracy of the value may vary. For 
example, to test a computed variable A against the value 
1.0, use: 

IF ABS (A-1.0)C1.0E-6 THEN ... 

This test returns true if the value of A is 1.0 with a 
relative error of less than 1.0E-6. 

200 IF I THEN GET#1,1 

This statement GETS record number I if I is not zero. 

100 IF(I<20)*(I>10) THEN DB=1979-l:GOTO 300 
110 PRINT "OUT OF RANGE" 


In this example, a test det ermines if I isgreater than 
10 and less than 20. If I is in this range, DB is 
calculated and execution branches to line 300. If I 
is not in this range, execution continues with line 110. 

: 210 IF IOFLAG THEN PRINT A$ ELSE LPRINT A$ 

This statement causes printed output to go either to 
the terminal or theline printer, depending on the value 
of a variable IOFLAG. If IOFLAG is zero, output goes 
to the line printer, otherwise output goes to the 
terminal. 
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2.30 INPUT 


Format: 
Versions: 
Purpose: 


Remarks: 


INPUT[;][<"prompt string">;]Clist of variables> 
Extended, Disk 

To allow input from the terminal during program 
execution. 

When an INPUT statement is encountered, program 
execution pauses and a question mark is printed to 
indicate the program is waiting for data. If C'prompt 
string"> is included, the string is printed before the 
question mark. The required data is then entered at 
the terminal. 

If INPUT is immediately followed by a semicolon, then 
the carriage return typed by the user to input data does 
not echo a carriage return/line feed sequence. 

The data that is entered is assigned to the variable(s) 
given in Cvariable list>. The number of data items 
supplied must be the same as the number of variables in 
the list. Data items are separated by commas. 


The variable names in the list may be numeric or string 
variable names (including subscripted variables). 
The type of each data item that is input must agree with 
the type specified by the variable name. (Strings 
input to an INPUT statement need not be surrounded by 
quotation marks.) 

Responding to INPUT with too many or too few items, or 
with the wrong type of value (numeric instead of string, 
etc.) causes the messsage "?Redo from start" to be 
printed. No assignment of input values is made until 
an acceptable response is given. 
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Examples: 


10 INPUT X 

20 PRINT X "SQUARED IS" X"2 

30 END 

RUN 

? 5 (The 5 was typed in by the user 

in response to the question mark.) 
5 SQUARED IS 25 
Ok 

LIST 

10 PI=3.14 

20 INPUT "WHAT IS THE RADIUS";R 
30 A=PI*R~2 

40 PRINT "THE AREA OF THE CIRCLE IS";A 

50 PRINT 

60 GOTO 20 

Ok 

RUN 

WHAT IS THE RADIUS? 2z_4 (User types 7.4) 
THE AREA OF THE CIRCLE IS 171.946 

WHAT IS THE RADIUS? 
etc. 


/ 





EXCAS AND EXBASIC 


66 


2.31 INPUT# 


Format: 
Version: 
Purpose: 


Remarks: 


Example: 


INPUT#<file number>,<variable list> 

Disk 

To read data items from a sequential CP/M disk 
file and assign them to program variables. 


<file number> is the number used when the file was 
OPENed for input. Cvariable list> contains the 
variable names that will be assigned to the items in 
the file. (The variable type must match the type 
specified by the variable name.) With INPUT#/ no 
question mark is printed, as with INPUT. 

The data items in the file should appear just as they 
would if data were being typed in response to an INPUT 
statement. With numeric values, leading spaces, 
carriage returns and line feeds are ignored. The first 
character encountered that is not a space, carriage 
return or line feed is assumed to be the start of a 
number. The number terminates on a space, carriage 
return, line feed or comma. 


If EXBASIC is scanning the sequential data file for a 
string item, leading spaces, carriage returns and line 
feeds are also ignored. The first character 
encountered that is not a space, carriage return, or 
line feed is assumed to be the start of a string item. 
If this first character is a quotation mark (") , the 
string item will consist of all characters read between 
the first quotation mark and the second. Thus, a 
quoted string may not contain a quotation mark as a 
character. If the first character of the string is not 
a quotation mark, the string is an unquoted string, and 
terminates on a comma, carriage or line feed (or after 
255 characters have been read). If 
reached when a numeric or string item 
the item is terminated. 


end of file is 
is being INPUT, 


See Appendix B. 
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2.32 KILL 


Format: 

KILL <filename> 

Version: 

Disk 

Purpose: 

To delete a CP/M file from disk. 

Remarks: 

If a KILL statement is given for a file that is 
currently OPEN, a "File already open" error occurs. 

KILL is used for all types of disk files: program 
files, random data files and sequential data files, and 
also any CP/M file. 

<filename> must include the file type extension. 

Example: 

200 KILL "DATA1.BAS" 


See also Appendix B 
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2.33 LET 


Format: 

[LET] <variable>=<expression> 

Versions: 

Cassette, Disk 

Purpose: 

To assign the value of an expression to a variable. 

Remarks: 

Notice the word LET is optional, i.e., the equal 
sign is sufficient when assigning an expression to a 
variable name. 

Example: 

110 LET D=12 

120 LET E=12~2 

130 LET F=12~4 

140 LET SUM=D+E+F 

• 

• 

• 


or 

110 D=12 

120 E=12~2 

130 F=12~ 4 

140 SUM=D+E+F 
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2.34 LINE 

INPUT 

Format: 

LINE INPUT[;][<"prompt string">;]<string variable> 

Versions: 

Cassette, Disk 

Purpose: 

To input an entire line (up to 255 characters) to 
a string variable, without the use of delimiters. 

Remarks: 

The prompt string is a string literal that is 
printed at the terminal before input is accepted. A 
question mark is not printed unless it is part of the 
prompt string. All input from the end of the prompt to 
the carriage return is assigned to <string variable>. 

If LINE INPUT is immediately followed by a semicolon, 
then the carriage return typed by the user to end the 
input line does not echo a carriage return/line feed 
sequence at the terminal. 

A LINE INPUT may be escaped by typing Control-C. BASIC 
returns to command level and types Ok. Typing CONT 
resumes execution at the LINE INPUT. 

Example: 

See 2.35, LINE INPUT#. 
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2.35 LINE 

Format: 
Version: 
Purpose: 

Remarks: 


Example: 


INPUT# 


LINE INPUT#<file number>,<string variable> 

Disk 

To read an entire line (up to 255 characters), 
without delimiters, from a sequential disk data 
file to a string variable. 

<file number> is the number under which the file 
was OPENed. <string variable> is the variable 
name to which the line will be assigned. LINE 
INPUT# reads all characters in the sequential 
file up to a carriage return. It then skips 
over the carriage return/line feed sequence, and 
the next LINE INPUT# reads all characters up to 
the next carriage return. (If a line 
feed/carriage return sequence is encountered, it 
is preserved.) 

LINE INPUT# is especially useful if each line of 
a data file has been broken into fields, or if 
an EXBASIC program saved in ASCII mode is being 
read as data by another program. The user input 
during the program run is underlined below. 

10 OPEN "0",1,"LIST" 

20 LINE INPUT "CUSTOMER INFORMATION? ";C$ 

30 PRINT #1, C$ 

40 CLOSE 1 

50 OPEN "I",1,"LIST" 

60 LINE INPUT #1, C$ 

70 PRINT C$ 

80 CLOSE 1 
RUN 

CUSTOMER INFORMATION? LINDA JONES 234,4 
LINDA JONES 234,4 
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2.36 LIST 


Format Is 

LIST [<line number>] 

Versions: 

Cassette, Disk 

Format 2: 

LIST [Cline number>[-[<1ine number>]]] 

Versions: 

Cassette, Disk 

Purpose: 

To list all or part of the program currently in 
memory at the terminal. 

Remarks: 

BASIC always returns to command level after a 
LIST is executed. 

Format 1: If Cline number> is omitted, the 
program is listed beginning at the lowest line 
number. (Listing is terminated either by the 
end of the program or by typing Control-C.) If 
Cline number> is included, BASIC will list only 
the specified line. 

Format 2: This format allows the following 
options: 

1. If only the first number is specified, that 

line and all higher-numbered lines are 

listed. 

2. If only the second number is specified, all 
lines from the beginning of the program 
through that line are listed. 


3 


If both numbers are specified, the entire 
range is listed. 




EXCAS AND EXBASIC 


72 


Examples: 


Format 1: 


LIST 

Lists the program currently 
in memory. 

LIST 500 

Format 2: 

Lists line 500. 

LIST 150- 

Lists all lines from 150 
to the end. 

LIST -1000 

Lists all lines from the 
lowest number through 1000. 

LIST 150-1000 

Lists lines 150 through 
1000, inclusive. 
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2.37 LLIST 

Format: 
Versions: 
Purpose: 

Remarks: 

Example: 


LLIST [<line number>[-[Cline number>]]] 

Cassette, Disk 

To list all or part of the program currently in 
memory at the line printer. 

LLIST assumes a 132—character wide printer unless 
WIDTH LPRINT is issued (see WIDTH in this 
chapter). BASIC always returns to command level 
after an LLIST is executed. The options for LLIST 
are the the same as for LIST, Format 2. 

See the examples for LIST, Format 2. 

See SERIAL command, 2.64. 


Note: 
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2.38 LOAD 

Format: 
Version: 
Purpose: 

Remarks: 


Examples: 


LOAD <filename>[,R] 

Disk 

To load an EXBASIC CP/M program file from disk 
into memory. 

<filename> is the name that was used when the 
file was SAVEd. (With CP/M, the default 
extension .BAS is supplied.) 

LOAD closes all open files and deletes all 
variables and program lines currently residing 
in memory before it loads the designated 
program. However, if the "R" option is used 
with LOAD, the program is RUN after it is 
LOADed, and all open data files are kept open. 
Thus, LOAD with the "R" option may be used to 
chain several programs (or segments of the same 
program). Information may be passed between the 
programs using their disk data files. 

This will load files SAVEd in ASCII, binary or 
protected form. 

LOAD "STRTRK",R 

loads STRTRK.BAS from the currently logged in 
disk. 

LOAD "B:STRTRK" 


loads 


STRTRK.BAS from drive B: 
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2.39 LPRINT AND LPRINT USING 


Format: LPRINT [Clist of expressions>] 


Versions: 
Purpose: 
Remarks: 


Note: 


LPRINT USING <"format string">;<1ist of expressions> 
Cassette, Disk 

To print data at the line printer. 

Same as PRINT and PRINT USING, except output 
goes to the line printer. See Section 2.52 and 
Section 2.53. 

LPRINT assumes a 132 character-wide printer 
unless WIDTH LPRINT n is issued. (See the WIDTH 
command, 2.70. 

See SERIAL command, 2.64. 
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2.40 LSET 

AND RSET 


Format: 

LSET <string variable> = <string expression> 
RSET <string variable> = <string expression> 


Version: 

Disk 


Purpose: 

Remarks: 

To move data from memory to a random file buffer 
(in preparation for a PUT statement). 

If <string expression> requires fewer bytes than 
were FIELDed to <string variable>, LSET 
left-justifies the string in the field, and RSET 


right-justifies the string. (Spaces are used to 
pad the extra positions.) If the string is too 
long for the field, characters are dropped from 
the right. Numeric values must be converted to 
strings before they are LSET or RSET. See the 
MKI$, MKS$, MKD$ functions, Section 3.26. 

Examples: 150 LSET A$=MKS$(AMT) 

160 LSET D$=DESC($) 

See also Appendix B. 

NOTE: LSET or RSET may also be used with a non-fielded 

string variable to left-justify or right-justify 
a string in a given field. For example, the 
program lines 


110 A$=SPACE$(20) 
120 RSET A$=N$ 


right-justify the string N$ 
field. This can be very 
printed output. 


in a 20-character 
handy for formatting 
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2.41 MERGE 
Format: 
Version: 
Purpose: 

Remarks: 


MERGE <filename> 

Disk 

To merge a specified disk file into the program 
currently in memory. 

<filename> is the name used when the file was 
SAVEd. (With CP/M, the default extension .BAS 
is supplied.) The file must have been SAVEd in 
ASCII format . (If not, a "Bad file mode" error 
occurs.) 

If any lines in the disk file have the same line 
numbers as lines in the program in memory, the 
lines from the file on disk will replace the 
corresponding lines in memory. (MERGEing may be 
thought of as "inserting" the program lines on 
disk into the program in memory.) 

EXBASIC always returns to command level after 
executing a MERGE command. 


Example: 


MERGE "NUMBRS" 













EXCAS AND EXBASIC 


78 


2.42 MID$ 


Format: 

MID$(<string expl>,n[,m])=<string exp2> 

where n and m are integer expressions and 
<string expl> and <string exp2> are string 
expressions. 

Versions: 

Cassette, Disk 

Purpose: 

To replace a portion of one string with another 
string. 

Remarks: 

The characters in <string expl>, beginning at 
position n, are replaced by the characters in 
<string exp2>. The optional m refers to the 
number of characters from <string exp2> that 
will be used in the replacement. If m is 
omitted, all of <string exp2> is used. However, 
regardless of whether m is omitted or included, 
the replacement of characters never goes beyond 
the original length of <string expl>. 

Example: 

10 A$="KANSAS CITY, MO" 

20 MID$(A$,14)="KS" 

30 PRINT A$ 

RUN 

KANSAS CITY, KS 

MID$ may also be used as a function that returns 
a substring of a given string. See Section 
3.25. 

Note: 

The first position in a string is 1, not 0. 
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2.43 NAME 
Format: 
Version: 
Purpose: 
Remarks: 

Example: 


NAME <old filename> AS <new filename> 

Disk 

To change the name of a disk file. 

<old filename> must exist and <new filename> 
must not exist; otherwise an error will result. 
After a NAME command, the file exists on the 
same disk, in the same area of disk space, with 
the new name. 

Ok 

NAME "ACCTS" AS "LEDGER" 

Ok 

In this example, the file that was 

formerly named ACCTS will now be named LEDGER. 
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2.44 NEW 
Format: 
Versions: 
Purpose: 


NEW 

Cassette, Disk 

To delete the program currently in memory and 
clear all variables. 

NEW is entered at command level to clear memory 
before entering a new program. BASIC always 
returns to command level after a NEW is 
executed. 


Remarks: 
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2.45 NULL 


Versions: 

Cassette, Disk 

Purpose: 

To set the number of nulls to be printed at the 
end of each line. 

Remarks: 

For 10-character-per-second tape punches, 
Cinteger expression> should be >=3. When tapes 
are not being punched, <integer expression> 
should be 0 or 1 for Teletypes and 
Teletype-compatible CRTs. Cinteger expression 
should be 2 or 3 for 30 cps hard copy printers. 
The default value is 0. 

Example: 

Ok 

NULL 2 

Ok 

100 INPUT X 

200 IF XC50 GOTO 800 


Two null characters will be printed after each 
line. 
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2.46 ON 
Format: 
Versions 
Purpose: 

Remarks: 


NOTE: 


Example: 


ERROR GOTO 

ON ERROR GOTO <line number> 

Cassette, Disk 

To enable error trapping and specify the first 
line of the error handling subroutine. 

Once error trapping has been enabled all errors 
detected, including direct mode errors (e.g.. 
Syntax errors), will cause a jump to the 
specified error handling subroutine. If <line 
number> does not exist, an "Undefined line" 
error results. To disable error trapping, 
execute an ON ERROR GOTO 0. Subsequent errors 
will print an error message and halt execution. 
An ON ERROR GOTO 0 statement that appears in an 
error trapping subroutine causes BASIC to 
stop and print the error message for the error 
that caused the trap. It is recommended that 
all error trapping subroutines execute an ON 
ERROR GOTO 0 if an error is encountered for 
which there is no recovery action. 

If an error occurs during execution of an error 
handling* subroutine, the BASIC error message is 
printed and execution terminates. Error 
trapping does not occur within the error 
handling subroutine. 

See RESUME, 2.61, for more information. 

10 ON ERROR GOTO 1000 
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2.47 ON. 
Format: 

Versions: 
Purpose: 

Remarks: 


Example: 


. GOSUB and ON ... GOTO 

ON <expression> GOTO <list of line numbers> 

ON <expression> GOSUB <list of line numbers> 
Cassette, Disk 

To branch to one of several specified line 
numbers, depending on the value returned when an 
expression is evaluated. 

The value of <expression> determines which line 
number in the list will be used for branching. 
For example, if the value is three, the third 
line number in the list will be the destination 
of the branch. (If the value is a non-integer, 
the fractional portion is rounded.) 

In the ON...GOSUB statement, each line number in 
the list must be the first line number of a 
subroutine. 

If the value of <expression> is negative, zero 
or greater than the number of items in the list, 
an "Illegal function call" error occurs. 

100 ON L-l GOTO 150,300,320,390 
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2.48 OPEN 
Format: 
Version: 
Purpose: 
Remarks: 


NOTE: 

Example: 


OPEN <mode>,[#]<file number>,<filename>,[<reclen>] 
Disk 

To allow I/O to a CP/M disk file. 

A disk file must be OPENed before any disk I/O 
operation can be performed on that file. OPEN 
allocates a buffer for I/O to the file and 
determines the mode of access that will be used 
with the buffer. 

<mode> is a string expression whose first 
character is one of the following: 

0 specifies sequential output mode 

I specifies sequential input mode 

R specifies random input/output mode 

<file number> is an integer expression whose 
value is between one and fifteen. The number is 
then associated with the file for as long as it 
is OPEN and is used to refer other disk I/O 
statements to the file. 

<filename> is a string expression containing a 
name that conforms to CP/M's rules for disk 
filenames. 

<reclen> is an integer expression which, if 
included, sets the record length for random 
files. The default record length is 128 bytes. 
See also Appendix A. 

A file can be OPENed for sequential input • or 
random acbess on more than one file number at a 
time. A file maiy be OPENed for output, however, 
on only one file number at a time. 

10 OPEN "I",2,"INVEN.DAT" 

or 

150 OPEN "R",#1,"B:FILE.TXT" 

See also Appendix B. 
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2.49 OPTION 

: BASE 

Format: 

OPTION BASE n 
where n is 1 or ' 

Versions: 

Cassette, Disk 

Purpose: 

To declare the 
subscripts. 

Remarks: 

The default base 

OPTION BASE 

is executed, the 
may have is one. 


minimum value for array 

is 0. If the statement 
1 

lowest value an array subscript 
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2.50 OUT 

Format: 

Versions: 
Purpose: 
Remarks: 

Example: 


OUT I,J 

where I and J are integer expressions in the 
range 0 to 255. 

Cassette, Disk 

To send a byte to a machine output port. 

The integer expression I is the port number, and 
the integer expression J is the data to be 
transmitted. 

100 OUT 32,100 

This is equivalent to the Z80 instructions: 

LD A,(J) 

OUT (I) ,A 
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2.51 POKE 

Format: 

Versions: 
Purpose s 
Remarks: 


POKE I,J 

where I and J are integer expressions 
Cassette, Disk 

To write a byte into a memory location. 

The integer expression I is the address of the 
memory location to be POKEd. The integer 
expression J is the data to be POKEd. J must be 
in the range 0 to 255. I must be in the 
range 0 to 65536. 

The complementary function to POKE is PEEK. The 
argument to PEEK is an address from which a byte 
is to be read. See Section 3.28. 

POKE and PEEK are useful for efficient data 
storage, loading assembly language subroutines, 
and passing arguments and results to and from 
assembly language subroutines. 


Example: 


10 POKE &H5A00,&HFF 
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2.52 PRINT 

Format: 
Versions: 
Purpose: 
Remarks: 


PRINT [Clist of expressions>] 

Cassette, Disk 

To output data at the terminal. 

If <list of expressions> is omitted, a blank 
line is printed. If <list of expressions> is 
included, the values of the expressions are 
printed at the terminal. The expressions in the 
list may be numeric and/or string expressions. 
(Strings must be enclosed in quotation marks.) 

Print Positions 

The position of each printed item is determined 
by the punctuation used to separate the items in 
the list. BASIC divides the line into print 
zones of 14 spaces each. In the list of 
expressions, a comma causes the next value to be 
printed at the beginning of the next zone. A 
semicolon causes the next value to be printed 
immediately after the last value. Typing one or 
more spaces between expressions has the same 
effect as typing a semicolon. 

If a comma or a semicolon terminates the list of 
expressions, the next PRINT statement begins 
printing on the same line, spacing accordingly. 
If the list of expressions terminates without a 
comma or a semicolon, a carriage return is 
printed at the end of the line. If the printed 
line is longer than the terminal width, BASIC 
goes to the next physical line and continues 
printing. 

Printed numbers are always followed by a space. 
Positive numbers are preceded by a space. 
Negative numbers are preceded by a minus sign. 
Single precision numbers that can be represented 
with 6 or fewer digits in the unsealed format no 
less accurately than they can be represented in 
the scaled format, are output using the unsealed 
format. For example, 10*(-6) is output as 
.000001 and 10*(-7) is output as IE-7. Double 
precision numbers that can be represented with 
16 or fewer digits in the unsealed format no 
less accurately than they can be represented in 
the scaled format, are output using the unsealed 
format. For example, 10*(-16) is output as 
.0000000000000001 and 10*(-17) is output as 
ID-17. 
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A question mark may be used in place of the word 
PRINT in a PRINT statement. 


Example 1: 


10 X=5 

20 PRINT X+5, X-5, X*(-5), X"5 

30 END 

RUN 

10 0 -25 

Ok 


3125 


In this example, the commas in the PRINT 
statement cause each value to be printed at the 
beginning of the next print zone. 


Example 2: LIST 

10 INPUT X 

20 PRINT X "SQUARED IS" X~2 "AND"; 

30 PRINT X "CUBED IS" X~3 

40 PRINT 

50 GOTO 10 

Ok 

RUN 

? 9 

9 SQUARED IS 81 AND 9 CUBED IS 729 


? 21 

21 SQUARED IS 441 AND 21 CUBED IS 9261 


In this example, the semicolon at the end of 
line 20 causes both PRINT statements to be 
printed on the same line, and line 40 causes a 
blank line to be printed before the next prompt. 


Example 3: 10 FOR X = 1 TO 5 

20 J=J+5 
30 K=K+10 
40 ?J;K; 

50 NEXT X 

Ok 

RUN 

5 10 10 20 15 30 20 40 25 50 

Ok 

In this example, the semicolons in the PRINT 
statement cause each value to be printed 
immediately after the preceding value. (Don't 
forget, a number is always followed by a space 
and positive numbers are preceded by a space.) 
In line 40, a question mark is used instead of 
the word PRINT. 
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2.53 PRINT 

Format: 
Versions: 
Purpose: 

Remarks 

and 

Examples: 


If | If 

"\n spaces\ 


USING 


PRINT USING <"format string">;<1ist of expressions> 
Cassette, Disk 


To print strings or numbers using a specified 
format. 

<list of expressions> is comprised of the string 
expressions or numeric expressions that are to 
be printed, separated by semicolons. C'format 
string">, enclosed in quotation marks, is 
comprised of special formatting characters. 
These formatting characters (see below) 
determine the field and the format of the 
printed strings or numbers. 

String Fields 

When PRINT USING is used to print strings, one 
of three formatting characters may be used to 
format the string field: 

Specifies that only the first character in the 
given string is to be printed. 


1 Specifies that 2+n characters from the string 
are to be printed. If the backslashes are typed 
with no spaces, two characters will be printed; 
with one space, three characters will be 
printed, and so on. If the string is longer 
than the field, the extra characters are 
ignored. If the field is longer than the 
string, the string will be left-justified in the 
field and padded with spaces on the right. 
Example: 


10 A$="LOOK":B$=”OUT" 
30 PRINT USING "!";A$; 
40 PRINT USING "\ \"; 

50 PRINT USING "\ \" 

RUN 
LO 

LOOKOUT 
LOOK OUT ! ! 


B$ 

A$; 

;A$ 


B$ 

;B$ 


"II" 
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Specifies a variable length string field. When 
the field is specified with the string is 

output exactly as input. Example: 

10 A$=" LOOK":B$="OUT" 

20 PRINT USING "!";A$; 

30 PRINT USING ;B$ 

RUN 

LOUT 


Numeric Fields 


When PRINT USING is used to print numbers, the 
following special characters may be used to 
format the numeric field: 

# A number sign is used to represent each digit 

position. Digit positions are always filled. 
If the number to be printed has fewer digits 
than positions specified, the number will be 
right-justified (preceded by spaces) in the 
field. 

. A decimal point may be inserted at any position 

in the field. If the format string specifies 
that a digit is to precede the decimal point, 
the digit will always be printed (as 0 if 
necessary). Numbers are rounded as necessary. 

PRINT USING "##.##,*".78 
0.78 

PRINT USING "###.##",*987.654 
987.65 

PRINT USING "##.## ";10.2,5.3,66.789,.234 

10.20 5.30 66.79 0.23 

In the last example, three spaces were inserted 
at the end of the format string to separate the 
printed values on the line. 

+ A plus sign at the beginning or end of the 

format string will cause the sign of the number 
(plus or minus) to be printed before or after 
the number. 
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A minus sign at the end of the format field will 
cause negative numbers to be printed with a 
trailing minus sign. 

PRINT USING "+##.## ",--68.95,2.4,55.6,-.9 

-68.95 +2.40 +55.60 -0.90 

PRINT USING "##.##- ";-68.95,22.449,-7.01 

68.95- 22.45 7.01- 

** A double asterisk at the beginning of the format 

string causes leading spaces in the numeric 
field to be filled with asterisks. The ** also 
specifies positions for two more digits. 

PRINT USING "**#.# ",-12.39,-0.9,765.1 

*12.4 *-0.9 765.1 

$$ A double dollar sign causes a dollar sign to be 

printed to the immediate left of the formatted 
number. The $$ specifies two more digit 
positions, one of which is the dollar sign. The 
exponential format cannot be used with $$. 
Negative numbers cannot be used unless the minus 
sign trails to the right. 

PRINT USING "$$###.##",-456.78 
$456.78 

**$ The **$ at the beginning of a format string 

combines the effects of the above two symbols. 
Leading spaces will be asterisk-filled and a 
dollar sign will be printed before the number. 
**$ specifies three more digit positions, one of 
which is the dollar sign. 

PRINT USING "**$##.##",-2.34 
***$2.34 

, A comma that is to the left of the decimal point 

in a formatting string causes a comma to be 
printed to the left of every third digit to the 
left of the decimal point. A comma that is at 
the end of the format string is printed as part 
of the string. A comma specifies another digit 
position. The comma has no effect if used with 
the exponential format. 

PRINT USING "####,.##",-1234.5 
1,234.50 

PRINT USING "####.##,",-1234.5 
1234.50, 



EXCAS AND EXBASIC 


93 


Four carats (or up-arrows) may be placed after 
the digit position characters to specify 
exponential format. The four carats allow space 
for E+xx to be printed. Any decimal point 
position may be specified. The significant 
digits are left-justified, and the exponent is 
adjusted. Unless a leading + or trailing + or — 
is specified, one digit position will be used to 
the left of the decimal point to print a space 
or a minus sign. 

PRINT USING "##.##-";234.56 

2.35E+02 

PRINT USING ".####--",-888888 

.8889E+06 

PRINT USING ” + .##-- ,* 123 

+.12E+03 

An underscore in the format string causes the 
next character to be output as a literal 
character. 

PRINT USING "_!##.##_!"?12.34 
112.341 

The literal character itself may be an 
underscore by placing "_" in the format string. 

If the number to be printed is larger than the 
specified numeric field, a percent sign is 
printed in front of the number. If rounding 
causes the number to exceed the field, a percent 
sign will be printed in front of the rounded 
number. 

PRINT USING "##.##",-111.22 
% 111.22 

PRINT USING ".##",-.999 

% 1.00 

If the number of digits specified exceeds 24, ar\ 
"Illegal function call" error will result. 
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2.54 PRINT# AND PRINT# USING 


Format: 
Version: 
Purpose: 
Remarks: 


PRINT#<filenumber>,[USING<"format string">;]<list of exps> 
Disk 

To write data to a sequential CP/M disk file. 

<file number> is the number used when the file 
was OPENed for output. <"format string"> is 
comprised of formatting characters as described 
in Section 2.50, PRINT USING. The expressions 
in Clist of expressions> are the numeric and/or 
string expressions that will be written to the 
f ile. 

PRINT# does not compress data on the disk. An 
image of the data is written to the disk, just 
as it would be displayed on the terminal with a 
PRINT statement. For this reason, care should 
be taken to delimit the data on the disk, so 
that it will be input correctly from the disk. 

In the list of expressions, numeric expressions 
should be delimited by semicolons. For example, 

PRINT#1,A;B;C;X;Y;Z 

(If commas are used as delimiters, the extra 
blanks that are inserted between print fields 
will also be written to disk.) 

String expressions must be separated by 
semicolons in the list. To format the string 
expressions correctly on the disk, use explicit 
delimiters in the list of expressions. 

For example, let A$="CAMERA" and B$="93604-l". 

The statement 

PRINT#1,A$;B$ 

would write CAMERA93604-1 to the disk. Because 
there are no delimiters, this could not be input 
as two separate strings. To correct the 
problem, insert explicit delimiters into the 
PRINT# statement as follows: 

PRINT#1,A$;B$ 

The image written to disk is 


CAMERA,93604-1 
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which can be read back into two string 
variables. 


If the strings themselves contain 
semicolons, significant leading blanks, 
returns, or line feeds, write them 
surrounded by explicit quotation 
CHR$(34). 


commas, 
carriage 
to disk 
marks, 


For example, let A$="CAMERA, AUTOMATIC" and 
B$=" 93604-1". The statement 


PRINT#1,A$;B$ 


would write the following image to disk: 


CAMERA, AUTOMATIC 93604-1 
and the statement 
INPUT#1,A$,B$ 

would input "CAMERA" to A$ and 

"AUTOMATIC 93604-1" to B$. To separate these 
strings properly on the disk, write double 

quotes to the disk image using CHR$(34). The 
statement 


PRINT#1,CHR$(34);A$;CHR$(34);CHR$(34);B$;CHR$(34) 
writes the following image to disk: 

"CAMERA, AUTOMATIC"" 93604-1" 


and the statement 
INPUT#1,A$,B$ 

would input "CAMERA, AUTOMATIC" to A$ and 
" 93604-1" to B$. 

The PRINT# statement may also be used with the 
USING option to control the format of the disk 
file. For example: 

PRINT#1,USING"$$###.##,";J;K;L 

For more examples using PRINT#, see Appendix B. 
See also WRITE#, Section 2.72. 
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2.55 PUT 


Format: 
Version: 
Purpose: 


Remarks: 


Example: 


PUT [#]<file number>[,<record number>] 

Disk 

To write a record from a random buffer to a 
random disk file. 

<file number> is the number under which the file 
was OPENed. If <record number> is omitted, the 
record will have the next available record 
number (after the last PUT). The largest 
possible record number is 32767. 

See Appendix B. 
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2.56 RANDOMIZE 


Format: 

RANDOMIZE [<expression>] 

Versions: 

Cassette, Disk 

Purpose: 

To reseed the random number generator. 

Remarks: 

If <expression> is omitted, BASIC suspends 
program execution and asks for a value by 
printing 

Random Number Seed (0-65529)? 

before executing RANDOMIZE. 

If the random number generator is not reseeded, 
the RND function returns the same sequence of 
random numbers each time the program is RUN. To 
change the sequence of random numbers every time 
the program is RUN, place a RANDOMIZE statement 
at the beginning of the program and change the 
argument with each RUN. 

Example: 

10 RANDOMIZE 

20 FOR 1=1 TO 5 

30 PRINT RND; 

40 NEXT I 

RUN 

Random Number Seed (0-65529)? 3 
.88598 .484668 .586328 .119426 .709225 

Ok 

RUN 

Random Number Seed (0-65529)? 4 
for new sequence) 

.803506 .162462 .929364 .292443 .322921 

Ok 

RUN 

Random Number Seed (0-65529)? 3 (same sequence 
as first RUN) 

.88598 .484668 .586328 .119426 .709225 

Ok 

NOTE: 

With EXCAS, the prompt given by RANDOMIZE is: 

Random Number Seed (-32768 to 32767)? 
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2.57 READ 




Format: 

READ <list of variables> 


Versions: 

Cassette, Disk 



Purpose: 

To read values from 
them to variables. 

a DATA statement 
(See DATA, Section 

and assign 
2.13.) 

Remarks: 

A READ statement 

must always be 

used in 


conjunction with a DATA statement. READ 
statements assign variables to DATA statement 
values on a one-to-one basis. READ statement 
variables may be numeric or string, and the 
values read must agree with the variable types 
specified. If they do not agree, a "Syntax 
error" will result. 

A single READ statement may access one or more 
DATA statements (they will be accessed in 
order) , or several READ statements may access 
the same DATA statment. If the number of 
variables in <list of variables> exceeds the 
number of elements in the DATA statement(s), an 
OUT OF DATA message is printed. If the number 
of variables specified is fewer than the number 
of elements in the-DATA statement(s), subsequent 
READ statements ■ will begin reading data at the 
first unread element. If there are no 
subsequent READ statements, the extra data is 
ignored. 

To reread DATA statements from the start, use 
the RESTORE statement (see RESTORE, Section 
2.60) 

Example Is 


• 

80 FOR 1=1 TO 10 
90 READ A(I) 

100 NEXT I 

110 DATA 3.08,5.19,3.12,3.98,4.24 
120 DATA 5.08,5.55,4.00,3.16,3.37 


This program segment READS the values from the 
DATA statements into the array A. After 
execution, the value of A(l) will be 3.08, and 
so on. 
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Example 2: LIST 

10 PRINT "CITY", "STATE", " ZIP" 

20 READ C$,S$,Z 

30 DATA "DENVER,", COLORADO, 80211 
40 PRINT C$,S$,Z 
Ok 
RUN 

CITY STATE ZIP 

DENVER, COLORADO 80211 

Ok 

This program READS string and numeric data from 
the DATA statement in line 30. 
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2.58 REM 

Format: 
Versions: 
Purpose: 

Remarks: 


Example: 


REM <remark> 

Cassette, Disk 

To allow explanatory remarks to be inserted in a 
program. 

REM statements are not executed but are output 
exactly as entered when the program is listed. 
The entire line after REM is ignored. 

REM statements may be branched into (from a GOTO 
or GOSUB statement), and execution will continue 
with the first executable statement after the 
REM statement. Remarks may also be added to the 
end of a line by preceding the remark with a 
single quotation mark instead of :REM. 


120 REM CALCULATE AVERAGE VELOCITY 
130 FOR 1=1 TO 20 
140 SUM=SUM + V(I) 


or. 


120 FOR 1=1 TO 20 'CALCULATE AVERAGE VELOCITY 
130 SUM=SUM+V(I) 

140 NEXT I 
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2.59 RENUM 


Format: 
Versions: 
Purpose: 
Remarks: 


NOTE: 


Examples: 


RENUM [[<new number>][,[Cold number>][,<increment>] ]] 


Cassette, Disk 


To renumber program lines. 


<new number> is the first line number to be used 
in the new sequence. The default is 10. Cold 
number> is the line in the current program where 
renumbering is to begin. The default is the 
first line of the program. <increment> is the 
increment to be used in the new sequence. The 
default is 10. 


RENUM also changes all line number references 
following GOTO, GOSUB, THEN, ON...GOTO, 
ON...GOSUB and ERL statements to reflect the new 
line numbers. If a nonexistent line number 
appears after one of these statements, the error 
message "Undefined line xxxxx in yyyyy" is 
printed. The incorrect line number reference 
(xxxxx) is not changed by RENUM, but line number 
yyyyy ma y be Changed. 


RENUM cannot be used to change the order of 
program lines (for example, RENUM 15,30 when the 
program has three lines numbered 10, 20 and 30) 
or to create line numbers greater than 65529. 
An "Illegal function call" error will result. 


RENUM Renumbers the entire program. 

The first new line number 
will be 10. Lines will 
increment by 10. 


RENUM 300,,50 Renumbers the entire pro¬ 

gram. The first new line 
number will be 300. Lines 
will increment by 50. 

RENUM 1000,900,20 Renumbers the lines from 

900 up so they start with 
line number 1000 and 
increment by 20. 
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2.60 RESTORE 


Format: 

RESTORE [<line number>] 

Versions: 

Cassette, Disk 

Purpose: 

To allow DATA statements to be reread from a 
specified point. 

Remarks: 

After a RESTORE statement is executed, the next 
READ statement accesses the first item in the 
first DATA statement in the program. If <line 
number> is specified, the next READ statement 
accesses the first item in the specified DATA 
statement. 

Example: 

10 READ A,B,C 

20 RESTORE 

30 READ D,E,F 

40 DATA 57, 68, 79 





EXCAS AND EXBASIC 


103 


2.61 RESUME 

Formats: RESUME 

RESUME 0 

RESUME NEXT 

RESUME <line number> 


Versions: Cassette, Disk 


Purpose: 

To continue program 

execution after 

an 

error 


recovery procedure 

has been performed. 




Remarks: 

Any one of the four 

formats shown above may 

be 


used, depending upon where executi 

on 

is 

to 


resume: 






RESUME 

Execution resumes 

at 

the 



or 

statement which 

caused 



RESUME 0 

the error. 





RESUME NEXT 

Execution resumes 

at 

the 



statement immediately 
following the one which 
caused the error. 


RESUME <line number> Execution resumes at 

<line number>. 

A RESUME statement that is not in an error trap 
routine causes a "RESUME without error" message 
to be printed. 

Example: 10 ON ERROR GOTO 900 


900 IF (ERR=230)AND(ERL=90) THEN PRINT "TRY 
AGAIN":RESUME 80 
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2.62 RUN 

Format 1: 
Versions: 
Purpose: 
Remarks: 

Example: 

Format 2: 
Version: 
Purpose: 
Remarks: 


Example: 


RUN [<line number>] 

Cassette, Disk 

To execute the program currently in memory. 

If Cline number> is specified, execution begins 
on that line. Otherwise, execution begins at 
the lowest line number. BASIC always returns to 
command level after a RUN is executed. 

RUN 


RUN <filename>[,R] 

Disk 

To load a file from disk into memory and run it. 


<filename> is the name used when the file 
SAVEd. (With CP/M, the default extension 


is supplied.) 

RUN closes all open 
current contents of 
designated program, 
option, all data files 

RUN "NEWFIL",R 

See also Appendix B. 


was 

BAS 


files and deletes the 
memory before loading the 
However, with the "R" 
remain OPEN. 
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2.63 SAVE 


Format: 

SAVE <filename>[,A | ,P] 

Version: 

Disk 

Purpose: 

To save a program file on disk. 

Remarks: 

<filename> is a quoted string that conforms to 
your operating system's requirements for 

filenames. (With CP/M, the default extension 
.BAS is supplied.) If <filename> already exists, 
the file will be written over. 

Use the A option to save the file in ASCII 
format. Otherwise, EXBASIC saves the file in a 
compressed binary format. ASCII format takes 

more space on the disk, but some disk access 
requires that files be in ASCII format. For 

instance, the MERGE command requires and ASCII 
format file, and some CP/M operating system 
commands such as TYPE may require an ASCII format file 

Use the P option to protect the file by saving 
it in an encoded binary format. When a 

protected file is later RUN (or LOADed), any 
attempt to list or edit it will fail. 

SAVE can be a program statement. 

Examples: 

SAVE”C0M2",A 

SAVE"PROG",P 


See also Appendix B 
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2.64 SERIAL 


Format: 

SERIAL [YES/NO] 

Version: 

Cassette, Disk 

Purpose: 

The new SERIAL command sends all output produced by the 
LLIST and LPRINT commands to the Sorcerer serial port RS- 
232 printer instead of the Sorcerer Centronics parallel 
printer. 

Remarks: 

The baud rate may be changed by the BAUD command, if 
necessary. Only one of these printers can be used in any 
one LLIST/LPRINT command but the mode may be changed at 
any time between these commands. 

YES (or just Y, or no operand) means you desire serial 
mode. All LLIST/LPRINT output then goes to the Sorcerer 
serial printer. If NO or N is specified, the usual 
parallel printing occurs. EXCAS Cassette operations 
(CSAVE/CLOAD) still work properly in the serial RS-232 
mode. You may use the serial port and specify later in the 
program to change output to the parallel port with the 
SERIAL NO command, which sets parallel mode. 

Example: 

10 BAUD 300 

20 SERIAL YES 

30 LPRINT "OUTPUT IS GOING TO SERIAL PRINTER AT 300 BAUD" 
40 SERIAL NO 

50 LPRINT "OUTPUT IS GOING TO PARALLEL PRINTER" 

The default mode is parallel. The mode remains in effect 
until another SERIAL command or coldstart is done. 
Warmstart does not effect this mode. 
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2.65 STOP 


Format: 

STOP 

Versions: 

Cassette, Disk 

Purpose: 

To terminate program execution and return to 
command level. 

Remarks: 

STOP statements may be used anywhere in a 
program to terminate execution. When a STOP is 
encountered, the following message is printed: 

Break in line nnnnn 

Unlike the END statement, the STOP statement 
does not close files. 

Example: 

BASIC always returns to command level after a 
STOP is executed. Execution is resumed by 

issuing a CONT command (see Section 2.8). 

10 INPUT A,B,C 

20 K=A~2*5.3:L=B~3/. 26 

30 STOP 

40 M=C*K+100:PRINT M 

RUN 

? 1/2,3 

BREAK IN 30 

Ok 

PRINT L 

30.7692 

Ok 

CONT 

115.9 

Ok 
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2.66 SWAP 


Format: 

SWAP <variable>,<variable> 

Versions: 

Cassette, Disk 

Purpose: 

To exchange the values of two variables. 

Remarks: 

Any type variable may be SWAPped (integer, 
single precision, double precision, string), but 
the two variables must be of the same type or a 
"Type mismatch" error results. 

Example: 

LIST 

10 A$=" ONE " : B$=" ALL " : C$="FOR" 

20 PRINT A$ C$ B$ 

30 SWAP A$, B$ 

40 PRINT A$ C$ B$ 

RUN 

Ok 

ONE FOR ALL 

ALL FOR ONE 

Ok 





EXCAS AND EXBASIC 


109 


2.67 TRON/TROFF 


Format: 

TRON 

TROFF 

Versions: 

Cassette, Disk 

Purpose: 

To trace the execution of program statements. 

Remarks: 

As an aid in debugging, the TRON statement 
(executed in either the direct or indirect mode) 
enables a trace flag that prints each line 
number of the program as it is executed. The 
numbers appear enclosed in square brackets. The 
trace flag is disabled with the TROFF statement 
(or when a NEW command is executed). 

Example: 

TRON 

Ok 

LIST 

10 K=10 

20 FOR J=1 TO 2 

30 L=K + 10 

40 PRINT J;K;L 

50 K=K+10 

60 NEXT 

70 END 

Ok 

RUN 

[10] [20] [30] [40] 1 10 20 
[50] [60] [30] [40] 2 20 30 
[50] [60] [70] 

Ok 

TROFF 

Ok 
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2.68 WAIT 

Format: 

Versions: 
Purpose: 

Remarks: 


CAUTION: 

Example: 

LOOP: 


WAIT <port number>,I[,J] 

where I and J are integer expressions 

Cassette, Disk 

To suspend program execution while monitoring 
the status of a machine input port. 

The WAIT statement causes execution to be 
suspended until a specified machine input port 
develops a specified bit pattern. The data read 
at the port is exclusive OR'ed with the integer 
expression J, and then AND'ed with I. If the 
result is zero, BASIC loops back and reads the 
data at the port again. If the result is 
nonzero, execution continues with the next 
statement. If J is omitted, it is assumed to be 
zero 

It is possible to enter an infinite loop with 
the WAIT statement, in which case it will be 
necessary to manually restart the machine. 

100 WAIT 32,2 

This instruction is the same as the following Z80 
instructions. • 

LD B,(J); or 0 
LD C,(I) 

IN A, (port) 

XOR B 
AND C 

JR Z,LOOP-$ 
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e 

2.69 WHILE 

Format: 

Versions: 
Purpose: 



Remarks: 


Example: 



..WEND 


WHILE <expression> 
[Cloop statements>] 


WEND 

Cassette, Disk 

To execute a series of statements in a loop as 
long as a given condition is true. 

If <expression> is not zero (i.e., true), <loop 
statements> are executed until the WEND 
statement is encountered. BASIC then returns to 
the WHILE statement and checks <expression>. If 
it is still true, the process is repeated. If 
it is not true, execution resumes with the 
statement following the WEND statement. 

WHILE/WEND loops may be nested to any level. 

Each WEND will match the most recent WHILE. An 
unmatched WHILE statement causes a "WHILE 
without WEND" error, and an unmatched WEND 
statement causes a "WEND without WHILE" error. 

90 'BUBBLE SORT ARRAY A$ 

100 FLIPS=1 'FORCE ONE PASS THRU LOOP 

110 WHILE FLIPS 

115 FLIPS=0 

120 FOR 1=1 TO J-l 

130 IF A$(I)>A$(1+1) THEN 

SWAP A$(I),A$(1+1):FLIPS =1 

140 NEXT I 

150 WEND 
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2.70 WIDTH 


Format: 

WIDTH [LPRINT] <integer expression> 

Versions: 

Cassette, Disk 

Purpose: 

To set the printed line width in number of 
characters for the terminal or line printer. 

Remarks: 

If the LPRINT option is omitted, the line width 
is set at the terminal. If LPRINT is included, 
the line width is set at the line printer. 

<integer expression> must have a value in the 
range 15 to 255. The default width is 63 
characters for EXCAS and 64 for EXBAS. 

If <integer expression> is 255, the line width 
is "infinite," that is, BASIC never inserts a 
carriage return. However, the position of the 
cursor or the print head, as given by the POS or 
LPOS function, returns to zero after position 
255. 

Example: 

10 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

RUN 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Ok 

WIDTH 18 

Ok 

RUN 

ABCDEFGHIJKLMNOPQR 

STUVWXYZ 

Ok 

Note: 

The Sorcerer screen size can fit up to 64 characters but 
due to restrictions, this 63 character default has been 
set for EXCAS. You may change it yourself with the 
WIDTH command. 
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2.71 WRITE 


Format: 
Version: 
Purpose: 
Remarks: 


Example: 


WRITE[<list of expressions>] 

Disk 

To output data at the terminal. 

If <list of expressions> is omitted, a blank 
line is output. If Clist of expressions> is 
included, the values of the expressions are 
output at thee terminal. The expressions in the 
list may be numeric and/or string expressions, 
and they must be separated by commas. 

When the printed items are output, each item 
will be separated from the last by a comma. 
Printed strings will be delimited by quotation 
marks. After the last item in the list is 
printed, EXBASIC inserts a carriage return/line 
feed. 

WRITE outputs numeric values using the same 
format as the PRINT statement. Section 2.49. 

10 A=80:B=90:C$="THAT'S ALL” 

20 WRITE A,B,C$ 

RUN 

•80, 90,"THAT 1 S ALL" 

Ok 
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2.72 WRITE# 


Format: 

WRITE#<file number>,<list of expressions> 

Version: 

Disk 

Purpose: 

To write data to a sequential file. 

Remarks: 

<file number> is the number under which the file 
was OPENed in "0" mode. The expressions in the 
list are string or numeric expressions, and they 
must be separated by commas. 

The difference between WRITE# and PRINT# is that 
WRITE# inserts commas between the the items as 
they are written to disk and delimits strings 
with quotation marks. Therefore, it is not 
necessary for the user to put explicit 
delimiters in the list. A carriage return/line 
feed sequence is inserted after the last item in 
the list is written to disk. 

Example: 

Let A$="CAMERA" and B$="93604-1". The statement: 

WRITE#1,A$,B$ 

writes the following image to disk: 

"CAMERA","93604-1" 

A subsequent INPUT# statement, such as: 

INPUT#1,A$,B$ 

would input "CAMERA" to A$ and "93604-1" to B$. 
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CHAPTER 3 
BASIC FUNCTIONS 


The intrinsic functions provided by EXBASIC are presented 
in this chapter. The functions may be called from any 
program without further definition. 

Arguments to functions are always enclosed in parentheses. 
In the formats given for the functions in this chapter, the 
arguments have been abbreviated as follows: 

X and Y Represent any numeric expressions (integer, 
single or double precision. 

I and J Represent integer expressions 

X$ and Y$ Represent string expressions 

If a floating point value is supplied where an integer is 
required, BASIC will round the fractional portion and use 
the resulting integer. 
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3.1 ABS 


Format: 

ABS(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the absolute value of the expression X. 

Example: 

PRINT ABS(7*(-5)) 

35 

Ok 


3.2 ASC 


Format: 

ASC(X$) 

Versions: 

Cassette, Disk 

Action: 

Returns a numerical value that is the ASCII code 
of the first character of the string X$. (See 
Appendix H for ASCII codes.) If X$ is null, an 
"Illegal function call" error is returned. 

Example: 

10 X$ = "TEST" 

20 PRINT ASC(X$) 

RUN 

84 

Ok 


See the CHR$ function 
conversion. 


for ASCII-to-string 
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3.3 ATN 


Format: 

ATN(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the arctangent of X in radians. Result 
is in the range -pi/2 to pi/2. (Note pi=3.14159) 
The expression X may be any numeric type, but 
the evaluation of ATN is always performed in 
single precision. 

Example: 

10 INPUT X 

20 PRINT ATN(X) 

RUN 
? 3 

1.24905 

Ok 


3.4 CDBL 


Format: 

CDBL (X) 

Versions: 

Cassette, Disk 

Action: 

Converts X to a double precision number. 

Example: 

10 A = 454.67 

20 PRINT A;CDBL(A) 

RUN 

454.67 454.6700134277344 

Ok 
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3.5 CHR$ 


Format: 

CHR$(I) 

Versions: 

Cassette, Disk 

Action: 

Returns a string whose one element has ASCII 
code I. (ASCII codes are listed in Appendix I.) 
CHR$ is commonly used to send a special 
character to the terminal. For example, a form 
feed could be sent (CHR$(12)) to clear a CRT 
screen and return the cursor to the home 
position. 

Example: 

PRINT CHR$(66) 

B 

Ok 

See the ASC function for ASCII-to-numeric 

conversion. 


3.6 CINT 


Format: 

CINT(X) 

Versions: 

Cassette, Disk 

Action: 

Converts X to- an integer by rounding the 
fractional portion. If X is not in the range 
-32768 to 32767, an "Overflow" error occurs. 

Example: 

PRINT CINT(45.67) 

46 

Ok 

See the CDBL and CSNG functions for converting 
numbers to the double precision and single 
precision data type. See also the FIX and INT 
functions, both of which return integers. 
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3.7 COS 


Format: 

COS(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the cosine of X in radians. The 

calculation of COS(X) is performed in single 

precision. 

Example: 

10 X = 2*C0S(.4) 

20 PRINT X 

RUN 

1.84212 

Ok 


3.8 CSNG 


Format: 

CSNG(X) 

Versions: 

Cassette, Disk 

Action: 

Converts X to a single precision number. 

Example: 

10 A# = 975.3421# 

20 PRINT A#; CSNG(A#) 

RUN 

975.3421 975.342 

Ok 

See the CINT and CDBL functions for converting 
numbers to the integer and double precision data 
types. 
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3.9 CVI , 

Format: 

Version: 

Action: 

Example: 


CVS, CVD 


CVI(<2-byte string>) 

CVS(<4-byte string>) 

CVD(<8-byte string>) 

Disk 

Convert string values to numeric values. 
Numeric values that are read in from a random 
disk file must be converted from strings back 
into numbers. CVI converts a 2-byte string to 
an integer. CVS converts a 4-byte string to a 
single precision number. CVD converts an 8-byte 
string to a double precision number. 


70 FIELD #1,4 AS N$, 12 AS B$, ... 
80 GET #1 
90 Y=CVS(N$) 


See Section 3.26 and Appendix B also 
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3.10 EOF 

Format: 
Version: 
Action: 


EOF(<file number>) 

Disk 

Returns -1 (true) if the end of a sequential 
file has been reached. Use EOF to test for 
end-of-file while INPUTting, to avoid "Input 
past end" errors. 

20 C=0 

30 IF EOF(1) THEN 100 
40 INPUT #1,M(C) 

50 C=C+1:G0T0 30 
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3.11 EXP 


Format: 

EXP(X) 

Versions: 

Cassette, Disk 

Action: 

Returns e to the power of X. X must be 
<=87.3365. If EXP overflows, the "Overflow" 
error message is displayed, machine infinity 
with the appropriate sign is supplied as the 
result, and execution continues.. 

Example: 

10 X = 5 

20 PRINT EXP (X-l) 

RUN 

54.5982 

Ok 


3.12 FIX 


Format: 

FIX(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the truncated integer part of X. FIX(X) 
is equivalent to SGN(X)*INT(ABS(X)). The major 
difference between FIX and INT is that FIX does 
not return the next lower number for negative X. 

Examples: 

PRINT FIX(58.75) 

58 

Ok 

PRINT FIX(-58.75) 

-58 

Ok 
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3.13 FRE 


Format: 

FRE(0) 

FRE(X$) 

Versions: 

Cassette, Disk 

Action: 

Arguments to FRE are dummy arguments. If the 

argument is 0 (numeric), FRE returns the number 
of bytes in memory not being used by BASIC. If 
the argument is a string, FRE returns the number of 
free bytes in string space. 

Example: 

PRINT FRE(0) 

14542 

Ok 


3.14 HEX$ 


Format: 

HEX$(X) 

Versions: 

Cassette, Disk 

Action: 

Returns a string which represents the 
hexadecimal value of the decimal argument. X is 
rounded to an integer before HEX$(X) is 
evaluated. 

Example: 

10 INPUT X 

20 A$ = HEX$(X) 

30 PRINT X "DECIMAL IS " A$ " HEXADECIMAL" 

RUN 
? 32 

32 DECIMAL IS 20 HEXADECIMAL 

Ok 


See the OCT$ function, Section 3.27, for octal 
conversion. 
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4 


3.15 INKEY$ 


Format: INKEY$ 


Version: Cassette 

Purpose: This function strobes the keyboard for one-character user 

input not necessarily terminated by a carriage return. 


Remark: 


It returns a 1-byte string containing the key pushed, or a 
null (0 length) string if no key was pushed. Like the 
INPUT command, this is one method of obtaining user input 
from the keyboard. Unlike INPUT, no carriage return is 
needed to get the character input and the character is not 
echoed on screen. Only Control C is processed by INKEY$, 
causing the usual program BREAK. All other characters 
are returned to the user directly. 


This command is useful in programs that request the user 
to strike any key, when ready for the program to begin. 
Its use requires no arguments. 


Example: 


100 X$="DUMMY” 

110 WHILE X$<>"*" 

120 X$="" 

130 WHILE X$="" 

140 X$=INKEY$ 

150 WEND 
160 PRINT X$; 

170 WEND 

180 PRINT:PRINT "*ENTERED, END PROGRAM" 


Note: 


See INPUT$, 3.17, for EXBASIC. 


3.16 


INP 



Format: 
Versions: 
Action: 


Example: 


INP(I) 

Cassette, Disk 

Returns the byte read from port I. I must be in 
the range 0 to 255. INP is the complementary 
function to the OUT statement, Section 2.50. 


100 A=INP(255) 
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3.17 INPUT$ 

Format: 
Version: 
Action: 


Example 1: 


Example 2: 


Note: 


INPUTS(X [,[#]Y]) 

Disk 

Returns a string of X characters, read from the 
terminal or from file number Y. If the terminal 
is used for input, no characters will be echoed 
and all control characters are passed through 
except Control-C, which is used to interrupt the 
execution of the INPUTS function. 

5 'LIST THE CONTENTS OF A SEQUENTIAL FILE IN 

HEXADECIMAL 

10 OPEN"I",1,"DATA" 

20 IF EOF(1) THEN 50 

30 PRINT HEX$(ASC(INPUTS(1,#1))); 

40 GOTO 20 
50 PRINT 
60 END 


100 PRINT "TYPE P TO PROCEED OR S TO STOP" 
110 X$=INPUT$(1) 

120 IF X$="P" THEN 500 

130 IF X$="S" THEN 700 ELSE 100 


INPUTS (1) for EXBASIC is the same as INKEYS for EXCAS. 
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3.18 INSTR 

Format: 
Versions: 
Action: 


Example: 


3.19 INT 

Format: 
Versions: 
Action: 
Examples: 


INSTR([I,]X$,Y$) 

Cassette, Disk 

Searches for the first occurrence of string Y$ 

in X$ and returns the position at which the 
match is found. Optional offset I sets the 
position for starting the search. I must be in 
the range 0 to 255. If I>LEN(X$) or if X$ is 

null or if Y$ cannot be found, INSTR returns 0. 

If Y$ is null, INSTR returns I or 1. X$ and Y$ 

may be string variables, string expressions or 
string literals. 

10 X$ = "ABCDEB" 

20 Y$ = "B" 

30 PRINT INSTR(X$,Y$);INSTR(4,X$,Y$) 

RUN 
2 6 
Ok 


INT (X) 

Cassette, Disk 

Returns the largest integer <=X. 

PRINT INT(99.89) 

99 

Ok 

PRINT INT(-12.11) 

-13 

Ok 


See the FIX and CINT functions, Sections 3.12 and 3.6, 
which also return integer values. 
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3.20 LEFT$ 

Format: 
Versions: 
Action: 

Example: 


3.21 LEN 

Format: 
Versions: 
Action: 

Example: 


LEFT$(X$,I) 

Cassette, Disk 

Returns a string comprised of the leftmost I 
characters of X$. I must be in the range 0 to 
255. If I is greater than LEN(X$), the entire 
string (X$) will be returned. If 1=0, the null 
string (length zero) is returned. 

10 A$ = "EXBASIC " 

20 B$ = LEFT$(A$,5) 

30 PRINT B$ 

EXBAS 

Ok 

Also see the MID$ and RIGHT$ functions, Sections 
3.25 and 3.30. 


LEN(X$) 

Cassette, Dis-k 

Returns the number of characters in X$. 
Non-printing characters and blanks are counted. 

10 X$ = "PORTLAND, OREGON" 

20 PRINT LEN(X$) 

16 

Ok 
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3.22 LOC 


Format: 
Version: 
Action: 


Example: 


LOC(<file number>) 

Disk 

With random disk files, LOC returns the next 
record number to be used if a GET or PUT 
(without a record number) is executed. With 
sequential files, LOC returns the number of 
sectors (128 byte blocks) read from or written 
to the file since it was OPENed. 


200 IF LOC(1)>50 THEN STOP 


3.23 LOG 


Format: 

LOG (X) 

Versions: 

Cassette, Disk 

Action: 

Returns the natural 
greater than zero. 

Example: 

PRINT LOG(45/7) 
1.86075 

Ok 


logarithm 


of 


X. 


X 


must 


be 
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3.24 LPOS 


Format: 

LPOS(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the current position of the line printer 
print head within the line printer buffer. Does 
not necessarily give the physical position of 
the print head. X is a dummy argument. 

Example: 

100 IF LPOS(X)>60 THEN LPRINT CHR$(13) 


3.25 MID$ 


Format: 

MID$(X$,I[,J]) 

Versions: 

Cassette, Disk 

Action: 

Returns a string of length J characters from X$ 
beginning with the Ith character. I and J must 
be in the range 0 to 255. If J is omitted or if 
there are fewer than J characters to the right 
of the Ith character, all rightmost characters 
beginning with the Ith character are returned. 
If I>LEN(X$), MID$ returns a null string. 

Example: 

LIST 

10 A$="GOOD " 

20 B$="MORNING EVENING AFTERNOON" 

30 PRINT A$;MID$(B$,9,7) 

Ok 

RUN 

GOOD EVENING 

Ok 


Also see the LEFT$ and RIGHT$ functions. Sections 
3.20 and 3.30. 
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3.26 MKI$, 

Format: 

Version: 
Action: 


Example: 


3.27 QCT$ 

Format: 
Versions: 
Action: 

Example: 


MKS$, MKD$ 


MKI$(<integer expression>) 

MKS$(<single precision expression>) 

MKD$(<double precision expression>) 

Disk 

Convert numeric values to string values. Any 
numeric value that is placed in a random file 
buffer with an LSET or RSET statement must be 
converted to a string. MKI$ converts an integer 
to a 2-byte string. MKS$ . converts a single 
precision number to a 4-byte string. MKD$ 
converts a double precision number to an 8-byte 
string. 

90 AMT=(K+T) 

100 FIELD #1, 8 AS D$, 20 AS N$ 

110 LSET D$ = MKS$(AMT) 

120 LSET N$ = A$ 

130 PUT #1 


See also CVI, CVS, CVD, Section 3.9 and Appendix 
B. 


OCT$(X) 

Cassette, Disk 

Returns a string which represents the octal 
value of the decimal argument. X is rounded to 
an integer before OCT$(X) is evaluated. 

PRINT OCT$(24) 

30 

Ok 

See the HEX$ function. Section 3.14, for hexa¬ 
decimal conversion. 
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3.28 PEEK 


Format: 

PEEK(I) 

Versions: 

Cassette, Disk 

Action: 

Returns the byte (decimal integer in the range 0 
to 255) read from memory location I. I must be 

in the range 0 to 65535. PEEK is the comple 
mentary function to the POKE statement. Section 
2.51. 

Example: 

A=PEEK(&H5A00) 


3.29 POS 


Format: 

POS(I) 

Versions: 

Cassette, Disk 

Action: 

Returns the current cursor position. The 

leftmost position is 0. X is a dummy argument. 

Example: 

IF POS(X)>60 THEN PRINT CHR$(13) 

Also see the LPOS function. Section 3.24. 
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3.30 RIGHT$ 


Format: 

RIGHT$(X$,I) 

Versions: 

Cassette, Disk 

Action: 

Returns the rightmost I characters of string X$. 
If I=LEN(X$), returns X$. If 1=0, the null 
string (length zero) is returned. 

Example: 

10 A$="DISK EXBASIC" 

20 PRINT RIGHT$(A$,7) 

RUN 

EXBASIC 

Ok 

Also see the MID$ and LEFT$ functions. Sections 
3.25 and 3.20. 


3.31 RND 


Format: 

RND[(X)] 

Versions: 

Cassette, Disk 

Action: 

Returns a random number between 0 and 1. The 
same sequence of random numbers is generated 
each time the program is RUN unless the random 
number generator is reseeded (see RANDOMIZE, 
Section 2.56). However, X<0 always restarts the 
same sequence for any given X. 

X>0 or X omitted generates the next random 
number in the sequence. X=0 repeats the last 
number generated. 

Example: 

10 FOR 1=1 TO 5 

20 PRINT INT(RND*100); 

30 NEXT 

RUN 

24 30 31 51 5 

Ok 
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Format: 

SGN(X) 

Versions: 

Cassette, Disk 

Action: 

If X>0, SGN(X) returns 1. 

If X=0, SGN(X) returns 0. 

If X<0, SGN(X) returns -1. 

Example: 

ON SGN(X)+2 GOTO 100,200,300 branches to 100 

X is negative, 200 if X is 0 and 300 if X 
positive. 


3.33 SIN 


Format: 

SIN(X) 

Versions: 

Cassette, Disk 

Action: 

Returns the sine o-f X in radians. SIN(X) 

calculated in single precision. 
C0S(X)=SIN(X+3.14159/2). 

Example: 

PRINT SIN(1.5) 

..997495 

Ok 





EXCAS AND EXBASIC 


134 


3.34 SPACE$ 


Format: 
Versions: 
Action: 


Examples 


SPACE$(X) 

Cassette, Disk 

Returns a string of spaces of length X. The 
expression X is rounded to an integer and must 
be in the range 0 to 255. 

10 FOR I = 1 TO 5 
20 X$ = SPACE$(I) 

30 PRINT X$;I 
40 NEXT I 
RUN 
1 

2 

3 

4 

5 

Ok 


Also see the SPC function, below. 


3.35 SPC 


Format: SPC(I) 

Versions: Cassette, Disk 


Action: Prints I blanks on the terminal. SPC may ' only 

be used with PRINT and LPRINT statements. I 
must be in the range 0 to 255. 

Example: PRINT "OVER" SPC(15) "THERE" 

OVER THERE 

Ok 

Also see the SPACE$ function, above. 
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3.36 SQR 


Format: 

SQR (X) 

Versions: 

Cassette, Disk 

Action: 

Returns the square root of X. X must be >=0. 

Example: 

10 FOR X = 10 TO 25 STEP 5 

20 PRINT X, SQR(X) 

30 NEXT 

RUN 

10 3.16228 

15 3.87298 

20 4.47214 

25 5 

Ok 


3.37 STR$ 


Format: 

STR$(X) 

Versions: 

Cassette, Disk 

Action: 

Returns a string representation of the value of 

x. 

Example: 

10 PRINT STR$(5+10) 

RUN 

_15 

5 REM ARITHMETIC FOR KIDS 

10 INPUT "TYPE A NUMBER";N 

20 ON LEN(STR$(N)) GOSUB 30,100,200,300,400,500 


Also see the VAL function. Section 3.42 
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3.38 STRING$ 


Formats: 

STRING$(I,J) 

STRING$(I,X$) 

Versions: 

Cassette, Disk 

Action: 

Returns a string of length I whose characters 
all have ASCII code J or the first character of 
X$. 

Example: 

10 X$ = STRING$(10,45) 

20 PRINT X$ "MONTHLY REPORT" X$ 

RUN 

-MONTHLY REPORT- 

Ok 


3.39 TAB 


Format: 

TAB(I) 

Versions: 

Cassette, Disk 

Action: 

Spaces to position I on the terminal. If the 
current print position is already beyond space 
I, the output will be placed at the correct TAB 
position on the next line. Space 0 is the 
leftmost position, and the rightmost position 
is the width minus one. It must be in the range 
0 to 255. TAB may only be used in PRINT and 
LPRINT statements. 

Example: 

10 PRINT "NAME" TAB(25) "AMOUNT" : PRINT 

20 READ A$,B$ 

30 PRINT A$ TAB(25) B$ 

40 DATA "G. T. JONES","$25.00" 

RUN 

NAME AMOUNT 

G. T. JONES $25.00 

Ok 

Note: 

10 PRINTjPRINT TAB (60);"0123456" 

puts 01234 in screen columns 60-64, and the 56 
on the next line. 

If a string is to be printed on video or printer 
(parallel or serial) and does not fit in the 
remaining space in the line, BASIC does not 
print a carriage return first. Just wrap around 
the amount of string that does not fit, as shown 
in the second example. 
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3.40 TAN 

Format: 
Versions: 
Action: 


Example: 

3.41 USR 

Format : 
Versions: 
Action: 


Example: 


TAN(X) 

Cassette, Disk 

Returns the tangent of X in radians. TAN(X) is 
calculated in single precision. If TAN 
overflows, the "Overflow" error message is 
displayed, machine infinity with the appropriate 
sign is supplied as the result, and execution 
continues. 

10 Y = Q*TAN(X)/2 


USR[<digit>](X) 

Cassette, Disk 

Calls the user's assembly language subroutine 
with the argument X. <digit> is in the range 
0 to 9 and corresponds to the digit supplied 
with the DEF USR statement for that routine. 
If <digit> is omitted, USR0 is assumed. See 
Appendix C. 

40 B = T*SIN(Y) 

50 C = USR(B/2) 

60 D = USR(B/3) 
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3.42 VAL 


Format: 

VAL(X$) 

Versions: 

Cassette, Disk 

Action: 

Returns the numerical value of string X$. If 
the first character of X$ is not +, -, &, or a 
digit, VAL(X$)=0. 

Example: 

10 READ NAME$,CITY$,STATE$,ZIP$ 

20 IF VAL(ZIP$)<90000 OR VAL(ZIP$)>96699 THEN 
PRINT NAME$ TAB(25) "OUT OF STATE" 

30 IF VAL(ZIP$)>=90801 AND VAL(ZIP$)<=90815 THEN 
PRINT NAME$ TAB(25) "LONG BEACH" 


See the STR$ function, Section 3.38, for numeric 
to string conversion. 
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3.43 VARPTR 


Format 1: 

VARPTR(<variable name>) 

Versions: 

Cassette, Disk 

Format 2: 

VARPTR(#<fi1e number>) 

Version: 

Disk 

Action: 

Format 1: Returns the address of the first byte 
of data identified with <variable name>. A 
value must be assigned to <variable name> prior 
to execution of VARPTR. Otherwise an "Illegal 
function call" error results. Any type variable 
name may be used (numeric, string, array), and 
the address returned will be an integer in the 
range 32767 to -32768. If a negative address is 
returned, add it to 65536 to obtain the actual 
address. 

VARPTR is usually used to obtain the address of 
a variable or array so it may be passed to an 
assembly language subroutine. A function call 
of the form VARPTR(A(0)) is usually specified 
when passing an array, so that the 
lowest-addressed element of the array is 
returned. 

NOTE: 

All simple variables should be assigned before 
calling VARPTR for an array, because the 
addresses of the arrays change whenever a new 
simple variable is assigned. 

Cf 

If Cvariable name> is integer, VARPTR is the 
address of a two byte two's complement integer 
word. If single floating, VARPTR is the address 
of the 4-byte floating point form and if double, 
it is the address of an 8-byte floating point 
form. If a string variable, VARPTR is the 
address of a 3 byte unit. The first by.te is the 
current length of the string. The next two bytes 
are the address of the string contents in the 
string space. See Appendix C for more information 

Format 2: Returns the starting address of the 
disk I/O buffer assigned to <file number>. 

Example: 

100 X=USR(VARPTR(Y)) 
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APPENDIX A 


New Features in EXBASIC, Release 5.04 f and EXCAS version 5.11 


The execution- of BASIC programs written under EXBASIC, 
release 4.51 and earlier, may be affected by some of 
the new features in release 5.04. Before attempting to run 
such programs, check for the following: 

1. New reserved words: CALL, CHAIN, COMMON, WHILE, 
WEND, WRITE, OPTION BASE, RANDOMIZE. 

2. Conversion from floating point to integer values 
results in rounding, as opposed to truncation. 
This affects not only assignment statements (e.g., 
I%=2.5 results in I%=3), but also affects function 
and statement evaluations (e.g., TAB(4.5) goes to 
the 5th position, A(1.5) yeilds A(2), and X=11.5 
MOD 4 yields 0 for X). 

3. The body of a FOR...NEXT loop is skipped if the 
initial value of the loop times the sign of the 
step exceeds the final value times the sign of the 
step. See Section 2.25. 

4. Division by zero and overflow no longer produce 
fatal errors. See Section 1.8.1.2. 

5. The RND function has been changed so that RND with 
no argument is the same as RND with a positive 
argument. The RND function generates the same 
sequence of random numbers with each RUN, unless 
RANDOMIZE is used. See Sections 2.56 and 3.31. 

6. The rules for PRINTing single precision and double 
precision numbers have been changed. See Section 
2.52. 

7. If the argument to ON...GOTO is out of range, an 
error message results and execution halts. 

8. String space is allocated dynamically, and the 
first argument in a two-argument CLEAR statement 
will be ignored. See Section 2.6. 
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9. Responding to INPUT with too many or too few items, 
or with the wrong type of value (numeric instead of 
string, etc.), or with a carriage return causes the 
message "?Redo from start" to be printed. No 
assignment of input values is made until an 
acceptable response is given. 

10. There are two new field formatting characters for 
use with PRINT USING. An ampersand is used for 
variable length string fields, and an underscore 
signifies a literal character in a format string. 

11. If the expression supplied with the WIDTH statement 
is 255, BASIC uses an "infinite" line width, that 
is, it does not insert carriage returns. WIDTH 
LPRINT may be used to set the line width at the 
line printer. See Section 2.70. 

12. The at-sign and underscore are no longer used as 
editing characters. 

13. Variable names are significant up to 40 characters 
and can contain embedded reserved words. However, 
reserved words must now be delimited by spaces. To 
maintain compatibility with earlier versions of 
BASIC, spaces will be automatically inserted 
between adjoining reserved words and variable 
names. WARNING: This insertion of spaces may 
cause the end of a line to be truncated if the line 
length is close to 255 characters. 

14. BASIC programs may be saved in a protected binary 
format. See SAVE, Section 2.63. 



SUMMARY OF ADDITIONAL MODIFICATIONS BY EXIDY 


The following are miscellaneous notes of additional changes Exidy 

has made to Extended Cassette BASIC to make EXCAS version 5.11/2 and 

Disk BASIC, making EXBASIC version 5.04/2. 

1. The token and reserved word tables of EXCAS are now compatible 
with EXBASIC. 

2. Cassette motors turn off whenever an error occurs or whenever 
the Ok message appears on the screen. 

3. If a string to be printed on the video or printer is too long to 
fit that remaining space in the line, BASIC does not print a 
carriage return. Instead, it lets the line wrap around the rest 
of the string that doesn't fit. This is especially important 
with the cursor positioning. 

4. Routines have been added making it possible for EXCAS to 
comunicate to the Sorcerer via the monitor, keyboard, 
Centronics, serial, and cassette in and out routines. 

5. Any graphics characters sent to the parallel or serial/RS232 
printers will be converted to question mark (?) . 

6. The LIST and LPRINT commands (2.36, 2.39) always assume a 132- 
character wide print unless WIDTH LPRINT is issued. 

7. With Extended Cassette BASIC, the prompt given by the RANDOMIZE 
command (2.56) is: 

Random Number Seed (-32786 to 32767)? 

8. VARPTR (3.43) 

If <variable name> is an integer, VARPTR is the address of a two 
byte two' s complement integer word. If single floating, VARPTR 
is the address of the 4 byte floating point form; while if double, 
it is an 8-byte floating point form. If a string variable, 
VARPTR is the address of a 3 byte unit. The first byte is the 
current length of the string. The next two bytes are the 
address of the string contents in the string space. See 
Appendix C. 

9. Printed double precision results near powers of ten no longer 
print a colon (:) in place of the leading digits. 

10. Reserved words after THEN like FOR and WHILE will be recognized. 
For example, you may use the IF...THEN statement with a FOR or 
WHILE following. 
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11. The address of FRCINT is at 106 hex and MAKINT is at 108. 

12. Addition of conversion utilities to package, RM2EX, EXT2DSK, 
R0M2DSK. 

13. Screen line length changed from 80 to Sorcerer screen size. 

14. EXCAS warmstart feature, GO 103 (see Chapter 1). 

15. EXCAS coldstart uses Sorcerer Monitor top of RAM (see Chapter 1) . 

16. New commands BAUD, BYE, CURSOR, SERIAL. 

17. Updated CLOAD/CSAVE routines in EXCAS. 

18. Updated INKEY$ routine in EXCAS. 

19. New or updated control keys @ (EXCAS only) , CLEAR, HOME, SHIFT 
RUB. 


CP/M EXBASIC 


In CP/M EXBASIC, release 5.0, a number of additions have been 
made to disk I/O capability: 

1. After a GET statement, INPUT# and LINE INPUT# may 
be done to read characters from the random file 
buffer. PRINT#, PRINT# USING, and WRITE# may also 
be used to put characters in the random file buffer 
before a PUT statement. 

In the case of WRITE#, EXBASIC pads the buffer 

with spaces up to the carriage return. Any attempt 

to read or write past the end of the buffer causes 
a "Field overflow" error. 

2. /S:<max record size> may be added at the end of the 
command line to set the maximum record size for use 
with random files. The default record size is 128 
bytes. 

A new feature has been added to the INPUT statement. A 

comma may be used instead of a semicolon after the prompt 
string to suppress the question mark. For example, the 

statement INPUT "ENTER BIRTHDATE", B$ will print the prompt 
with no question mark. 
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APPENDIX B 


EXBASIC Disk I/O 


Disk I/O procedures for the beginning EXBASIC user are 
examined in this appendix. If you are new to EXBASIC or if 
you're getting disk related errors, read through these 
procedures and program examples to make sure you're using 
all the disk statements correctly. 

Wherever a filename is required in a disk command or 
statement, use a name that conforms to your operating 
system's requirements for filenames. The CP/M operating 
system will append a default extension .BAS to the filename 
given in a SAVE, RUN, MERGE, or LOAD command. 


B.l PROGRAM FILE COMMANDS 


Here is a review of the commands and statements used in 
program file manipulation. 


SAVE "filename"[,A] 


Writes to disk the program that is 
currently residing in memory. 
Optional A writes the program as a 
series of ASCII characters. (Other¬ 
wise, BASIC uses a compressed binary 
format.) 


LOAD "filename"[,R] Loads the program from disk into 

memory. Optional R runs the program 
immediately. LOAD always deletes the 
current contents of memory and closes 
all files before LOADing. If R is 
included, however, open data files are 
kept open. Thus programs can be 
chained or loaded in sections and 
access the same data files. 


RUN "filename"[,R] RUN "filename" loads the program from 

disk into memory and runs it. RUN 
deletes the current contents of memory 
and closes all files before loading 
the program. If the R option is 
included, however, all open data files 
are kept open. 
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MERGE "filename" Loads the program from disk into 

memory but does not delete the current 
contents of memory. The program line 
numbers on disk are merged with the 
line numbers in memory. If two lines 
have the same number, only the line 
from the disk program is saved. After 
a MERGE command, the "merged" program 
resides in memory, and BASIC returns 
to command level. 

KILL "filename" Deletes the file from the disk. 

"filename" may be a program file, or a 
sequential or random access data file. 
The KILL command must contain the file 
type. 

Example: 

KILL "MYPROG.BAS" 

NAME To change the name of a disk file, 

execute the NAME statement, NAME 
"oldfile" AS "newfile". NAME may be 


used with program 

files, random files, 

or 

sequential files. 

A "bad filename" message 

appears when 

using a filename of 

more than 8 characters 
command. 

for a KILL, 

RUN, LOAD, and SAVE 

B.2 PROTECTED FILES 




If you wish to save a program in an encoded binary format, 
use the "Protect" option with the SAVE command. For 
example: 

SAVE "MYPROG",P 

A program saved this way cannot be listed or edited. 


B.3 DISK DATA FILES - SEQUENTIAL AND RANDOM I/O 


There are two types of disk data files that may be created 
and accessed by an EXBASIC program: sequential files and 
random access files. 
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B.3.1 Sequential Files 

Sequential files are easier to create than random files but 
are limited in flexibility and speed when it comes to 
accessing the data. The data that is written to a 
sequential file is stored, one item after another 
(sequentially), in the order it is sent and is read back in 
the same way. 

The statements and functions that are used with sequential 
files are: 


OPEN PRINT# INPUT# WRITE# 

PRINT# USING LINE INPUT# 

CLOSE EOF LOC 

The following program steps are required to create a 
sequential file and access the data in the file: 


1. OPEN the file in "0" mode. 

2. Write data to the file 
using the PRINT# statement. 
(WRITE# may be used instead.) 

3. To access the data in the 
file, you must CLOSE the file 
and reOPEN it in "I" mode. 


OPEN "0",#1,"DATA" 
PRINT#1,A$;B$;C$ 

CLOSE #1 

OPEN "I" , #1,"DATA" 


4. Use the INPUT# statement to INPUT#1,X$,Y$,Z$ 

read data from the sequential 
file into the program. 


Program B-l is a short program that creates a sequential 
file, "DATA", from information you input at the terminal. 





B-4 


10 OPEN "0" r #l/"DATA" 

20 INPUT "NAME";N$ 

25 IF N$="DONE" THEN END 
30 INPUT "DEPARTMENT";D$ 

40 INPUT "DATE HIRED";H$ 

50 PRINT#1 ,N$;"/"; D$ ;"f"; H$ 

60 PRINT:GOTO 20 

RUN 


NAME? MICKEY MOUSE 
DEPARTMENT? AUDIO/VISUAL AIDS 
DATE HIRED? 01/12/72 


NAME? SHERLOCK HOLMES 
DEPARTMENT? RESEARCH 
DATE HIRED? 12/03/65 


NAME? EBENEEZER SCROOGE 
DEPARTMENT? ACCOUNTING 
DATE HIRED? 04/27/78 


NAME? SUPER MANN 
DEPARTMENT? MAINTENANCE 
DATE HIRED? 08/16/78 


NAME? etc. 


PROGRAM B-l - CREATE A SEQUENTIAL DATA FILE 





Now look at Program B-2. It accesses the file "DATA" that 
was created in Program B-l and displays the name of everyone 
hired in 1978. 
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10 OPEN "I", # 1,"DATA" 

20 INPUT#1,N$,D$,H$ 

30 IF RIGHT$(H$,2)="78" THEN PRINT N$ 

40 GOTO 20 

RUN 

EBENEEZER SCROOGE 
SUPER MANN 

Input past end in 20 
Ok 


PROGRAM B-2 - ACCESSING A SEQUENTIAL FILE 


Program B-2 reads, sequentially, every item in the file. 
When all the data has been read, line 20 causes an "Input 
past end" error. To avoid getting this error, insert line 
15 which uses the EOF function to test for end-of-file: 

15 IF EOF(1) THEN END 

and change line 40 to GOTO 15. 

A program that creates a sequential file can also write 
formatted data to the disk with the PRINT# USING statement. 
For example, the statement 

PRINT# 1, USING" ###'#.##," ;A,B,C,D 

could be used to write numeric data to disk without explicit 
delimiters. The comma at the end of the format string 
serves to separate the items in the disk file. 

The‘LOC function, when used with a sequential file, returns 
the number of sectors that have been written to or read from 
the file since it was OPENed. A sector is a 128-byte block 
of data. 


B.3.1.1 Adding Data to a Sequential File - 

If you have a sequential file residing on disk and later 
want to add more data to the end of it, you cannot simply 
open the file in "0" mode and start writing data. As soon 
as you open a sequential file in "0" mode, you destroy its 
current contents. The following procedure can be used to 
add data to an existing file called "NAMES". 
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1. OPEN "NAMES” in "I" mode. 

2. OPEN a second file called "COPY" in "0" mode. 

3. Read in the data in "NAMES" and write it to "COPY". 

4. CLOSE "NAMES" and KILL it. 

5. Write the new information to "COPY". 

6. Rename "COPY" as "NAMES" and CLOSE. 

7. Now there is a file on disk called "NAMES" that 
includes all the previous data plus the new data 
you just added. 

Program B-3 illustrates this technique. It can be used to 
create or add onto a file called NAMES. This program also 
illustrates the use of LINE INPUT# to read strings with 
embedded commas from the disk file. Remember/ LINE INPUT# 
will read in characters from the disk until it sees a 
carriage return (it does not stop at quotes or commas) or 
until it has read 255 characters. 
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10 ON ERROR GOTO 2000 
20 OPEN "I" f #l,"NAMES" 

30 REM IF FILE EXISTS, WRITE IT TO "COPY" 

40 OPEN ”0",#2,"COPY" 

50 IF EOF(1) THEN 90 
60 LINE INPUT#1,A$ 

70 PRINT#2,A$ 

80 GOTO 50 

90 CLOSE #1 

100 KILL "NAMES.BAS" 

110 REM ADD NEW ENTRIES TO FILE 
120 INPUT "NAME";N$ 

130 IF N$="" THEN 200 'CARRIAGE RETURN EXITS INPUT LOOP 
140 LINE INPUT "ADDRESS? ";A$ 

150 LINE INPUT "BIRTHDAY? ";B$ 

160 PRINT#2,N$ 

170 PRINT#2,A$ 

180 PRINT#2,B$ 

190 PRINTjGOTO 120 
200 CLOSE 

205 REM CHANGE FILENAME BACK TO "NAMES" 

210 NAME "COPY" AS "NAMES" 

2000 IF ERR=53 AND ERL=20 THEN OPEN "0",#2,"COPY":RESUME 120 
2010 ON ERROR GOTO 0 


PROGRAM B-3 - ADDING DATA TO A SEQUENTIAL FILE 


The error trapping routine in line 
not exist" error in line 20. 
statements that copy the file are 
created as if it -were a new file. 


2000 traps a "File does 
If this happens, the 
skipped, and "COPY" is 


B.3.2 Random Files 

Creating and accessing random files requires more program 
steps than sequential files, but there are advantages to 
using random files. One advantage is that random files 
require less room on the disk, because BASIC stores them in 
a packed binary format. (A sequential file is stored as a 
series of ASCII characters.) 

The biggest advantage to random files is that data can be 
accessed randomly, i.e., anywhere on the disk — it is not 
necessary to read through all the information, as with 
sequential files. This is possible because the information 
is stored and accessed in distinct units called records and 
each record is numbered. 
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The statements and functions 
are: 


OPEN 

FIELD 

LSET/RSET 

PUT 

CLOSE 

LOC 

MKI$ 

CVI 


MKS$ 

CVS 


MKD$ 

CVD 



that are used with random files 

GET 


B.3.2.1 Creating a Random File - 

The following program steps are required to create a random 
file. 


1 . 


2 . 


3. 


OPEN the file for random OPEN "R",#1,"FILE",32 

access ("R” mode). This example 

specifies a record length of 32 

bytes. If the record length is 

omitted, the default is 128 

bytes. 

Use the FIELD statement to FIELD #1 20 AS N$, 

allocate space in the random 4 AS A$, 8 AS P$ 

buffer for the variables that 
will be written to the random 
file. 


Use LSET to move the data LSET N$=X$ 

into the random buffer. LSET A$=MKS$(AMT) 

Numeric values must be made LSET P$=TEL$ 

into strings when placed in 

the buffer. To do this, use the j 

"make" functions: MKI$ to 

make an integer value into a 

string, MKS$ for a single 

precision value, and MKD$ for 

a double precision value. 


4. Write the data from PUT #1,C0DE% 

the buffer to the disk 
using the PUT statement. 


Look at Program B-4. It takes information that is input at 
the terminal and writes it to a random file. Each time the 
PUT statement is executed, a record is written to the file. 
The two-digit code that is input in line 30 becomes the 
record number. 
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NOTE 

Do not use a FIELDed string 
variable in an INPUT or LET 
statement. This causes the 
pointer for that variable to 
point into string space 
instead of the random file 
buffer. 


10 OPEN "R",#1,"FILE",32 

20 FIELD #1, 20 AS N$, 4 AS A$, 8 AS P$ 

30 INPUT "2-DIGIT CODE";CODE% 

40 INPUT "NAME";X$ 

50 INPUT "AMOUNT";AMT 
60 INPUT "PHONE";TEL$:PRINT 
70 LSET N$=X$ 

80 LSET A$=MKS$(AMT) 

90 LSET P$=TEL$ 

100 PUT #1 ,CODE% 

110 GOTO 30 


PROGRAM B-4 - CREATE A RANDOM FILE 


B.3.2.2 Accessing a Random File - 

The following program steps are required to access a random 
f ile: 


1. OPEN the file in "R" mode. 

2. Use the FIELD statement to 
allocate space in the random 
buffer for the variables that 
will be read from the file. 


OPEN "R",#1,"FILE",32 

FIELD #1 20 AS N$, 

4 AS A$, 8 AS P$ 


NOTE; 

In a program that performs both 
input and output on the same random 
file, you can often use just one 
OPEN statement and one FIELD 
statement. 
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3. Use the GET statement to move GET #1,C0DE% 

the desired record into the 
random buffer. 

4. The data in the buffer may 
now be acessed by the program. 

Numeric values must be converted 
back to numbers using the 
"convert" functions: CVI for 
integers, CVS for single 
precision values, and CVD 
for double precision values. 

Program B-5 accesses the random file "FILE" that was created 
in Program B-4. By inputting the three-digit code at the 
terminal, the information associated with that code is read 
from the file and displayed. 


PRINT N$ 
PRINT CVS(A$) 


10 OPEN "R"#1,"FILE",32 

20 FIELD #1,20 AS N$, 4 AS A$, 8 AS P$ 

30 INPUT "2-DIGIT CODE";CODE% 

40 GET #1, CODE% 

50 PRINT N$ 

60 PRINT USING "$$###.##";CVS(A$) 

70 PRINT P$:PRINT 
80 GOTO 30 


PROGRAM B-5 - ACCESS A RANDOM FILE 


The LOC function, with random files, returns the "current 
record number." The current record number is one plus the 
last record number that was used in a GET or PUT statement. 
For example, the statement 

IF LOC(1)>50 THEN END 

ends program execution if the current record number in 
file#l is higher than 50. 

Program B-6 is an inventory program that illustrates random 
file access. In this program, the record number is used as 
the part number, and it is assumed the inventory will 
contain no more than 100 different part numbers. Lines 
900-960 initialize the data file by writing CHR$(255) as the 
first character of each record. This is used later (line 
270 and line 500) to determine whether an entry already 
exists for that part number. 

Lines 130-220 display the different inventory functions that 
the program performs. When you type in the desired function 
number, line 230 branches to the appropriate subroutine. 
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PROGRAM B-6 - INVENTORY 

120 

OPEN"R",#1,"INVEN.DAT",39 


125 

FIELD#1,1 AS F$,30 AS D$, 2 AS Q$,2 AS R$ , 4 AS 

P$ 

130 

PRINT:PRINT "FUNCTIONS:":PRINT 


135 

PRINT 1,"INITIALIZE FILE" 


.140 

PRINT 2,"CREATE A NEW ENTRY" 


150 

PRINT 3,"DISPLAY INVENTORY FOR ONE PART" 


160 

PRINT 4,"ADD TO STOCK" 


170 

PRINT 5,"SUBTRACT FROM STOCK" 


180 

PRINT 6,"DISPLAY ALL ITEMS BELOW REORDER LEVEL 

II 

220 

PRINT:PRINT:INPUT"FUNCTION";FUNCTION 


225 

IF (FUNCTIONC1) OR (FUNCTIONS) THEN PRINT "BAD 

FUNCTION NUMBER":GOTO 130 

230 

ON FUNCTION GOSUB 900,250,390,480,560,680 


240 

GOTO 220 


250 

REM BUILD NEW ENTRY 


260 

GOSUB 840 


270 

IF ASC(F$) 0 255 THEN INPUT"OVERWRITE" ; A$ : IF A$ 

_<>"Y" THEN RETURN 

28 0 

LSET F$*CHR$(0) 


290 

INPUT "DESCRIPTION";DESC$ 


300 

LSET D$*DESC$ 


310 

INPUT "QUANTITY IN STOCK";Q% 


320 

LSET Q$=MKI$(Q%) 


330 

INPUT "REORDER LEVEL";R% 


'40 

LSET R$=MKI$(R%) 


350 

INPUT "UNIT PRICE";P 

• 

360 

LSET P$*MKS$(P) 


370 

PUT#1,PART% 


380 

RETURN 


390 

REM DISPLAY ENTRY 


400 

GOSUB 840 


410 

IF ASC(F$)=255 THEN PRINT "NULL ENTRY":RETURN 


420 

PRINT USING "PART NUMBER ###";PART% 


430 

PRINT D$ 


440 

PRINT USING "QUANTITY ON HAND #####";CVI(Q$) 


450 

PRINT USING "REORDER LEVEL #####";CVI(R$) 


460 

PRINT USING "UNIT PRICE $$##.##";CVS(P$) 


470 

RETURN 


48 0 

REM ADD TO STOCK 


490 

GOSUB 840 


500 

IF ASC(F$)*255 THEN PRINT "NULL ENTRY":RETURN 


510 

PRINT D$:INPUT "QUANTITY TO ADD ";A% 


520 

Q%=CVI(Q$)+A% 


530 

LSET Q$=MKI$(Q%) 


540 

PUT#1,PART% 


550 

RETURN 


560 

REM REMOVE FROM STOCK 
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570 GOSUB 840 

580 IF ASC(F$)=255 THEN PRINT "NULL ENTRY":RETURN 
590 PRINT D$ 

600 INPUT "QUANTITY TO SUBTRACT";S% 

620 IF (Q%-S%)<0 THEN PRINT "ONLY";Q%;" IN STOCK":GOTO 600 


640 IF Q%=<CVI(R$) THEN PRINT "QUANTITY NOW";Q%;“ REORDER LEVEL";CVI(R$) 
650 LSET Q$=MKI$(Q%) 

660 PUT#1 , PART% 

670 RETURN 

680 DISPLAY ITEMS BELOW REORDER LEVEL 
690 FOR 1=1 TO 100 
7X0 GET#1 X 

720 IF CVI(Q$)<CVI(R$) THEN PRINT D$;" QUANTITY";CVI(Q$) TAB(50) 

"REORDER LEVEL";CVI(R$) 


730 NEXT I 
740 RETURN 

840 INPUT "PART NUMBER";PART% „ 

350 IF(PART%<1)OR(PART%>100) THEN PRINT "BAD PART NUMBER :GOTO 840 

ELSE GET#1,PART%:RETURN 


890 END 

900 REM INITIALIZE FILE 

910 INPUT "ARE YOU SURE";B$:IF B$<>"Y" THEN RETURN 
920 LSET F$=CHR$(255) 

930 FOR 1=1 TO 100 
940 PUT#1 r I 
950 NEXT I 
960 RETURN 




c 


APPENDIX C 

Assembly Language Subroutines 


All versions of EXBASIC have provisions for interfacing 
with assembly language subroutines. The USR function allows 
assembly language subroutines to be called in the same way 
BASIC's intrinsic functions are called. 


NOTE 

The addresses of the DEINT, GIVABF, 
MAKINT and FRCINT routines are stored 
in locations that must be supplied 
individually for different implemen¬ 
tations of BASIC. See Appendix D. 


C.l MEMORY ALLOCATION 

Memory space must be set aside for an assembly language 
subroutine before it can be loaded. During initialization, 
enter the highest memory location minus the amount of memory 
needed for the assembly language subroutine(s). BASIC uses 
all memory available from its starting location up, so only 
the topmost locations in memory can be set aside for user 
subroutines. 

When an assembly language subroutine is called, the stack 
pointer is set up for 8 levels (16 bytes) of stack storage. 
If more stack space is needed, BASIC's stack can be saved 
and a new stack set up for use by the assembly language 
subroutine. BASIC's stack must be restored, however, before 
returning from the subroutine. 


/ 
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The assembly language subroutine may be loaded into memory 
by means of the system monitor, or the BASIC POKE statement, 
or (if the user has the MACRO-80 or FORTRAN-80 package) 
routines may be assembled with MACRO-80 and loaded using 
LINK-80. 


C. 2 USR FUNCTION CALLS - EXTENDED AND DISK BASIC 

In the Cassette and Disk versions, the format of the USR 
function is 

USR[<digit>](argument) 

where DIGIT> is from 0 to 9 and the argument is any numeric 
or string expression. <digit> specifies which USR routine 
is being called, and corresponds with the digit supplied in 
the DEF USR statement for that routine. If <digit> is 
omitted, USR0 is assumed. The address given in the DEF USR 
statement determines the starting address of the subroutine. 


When the USR 
value that 
The value in 


function call is made, register 
specifies the type of argument 
A may be one of the following: 


A contains a 
that was given. 


Value in A Type of Argument 


2 Two-byte integer (two's complement) 

3 String 

4 Single precision floating point number 

8 Double precision floating point number 

If the argument is a number, the [H,L] register pair points 
to the Floating Point Accumulator (FAC) where the argument 
is stored. 

If the argument is an integer: 

FAC-3 contains the lower 8 bits of the argument and 
FAC-2 contains the upper 8 bits of the argument. 

If the argument is a single precision floating point number: 

FAC-3 contains the lowest 8 bits of mantissa and 
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FAC—2 contains the middle 8 bits of mantissa and FAC-1 
contains the highest 7 bits of mantissa with leading 1 
suppressed (implied). Bit 7 is the sign of_ the number 
(0=positive, l=negative) . FAC is the exponent minus 128 , and 
the binary point is to the left of the most significant bit of 
the mantissa. 

If the argument is'a double precision floating point number: 

FAC-7 through FAC-4 contain four more bytes 
of mantissa (FAC-7 contains the lowest 8 bits). 


If the 
to 3 
string 
255) . 

8 bits 


argument is a string, the [D,E] register pair points 
bytes called the "string descriptor." Byte 0 of the 
descriptor contains the length of the string (0 to 
Bytes 1 and 2, respectively, are the lower and upper 
of the string starting address in string space. 


CAUTION: If the 


literal in the 


. ** _ argument is a string 

program, the string descriptor will point to Program text. 
Be careful not to alter or destroy your program this way. 

results, add + to the string 


Be careful 

To avoid unpredictable 
literal in the program. Example: 


A$ = "EXBASIC"+"" 

This will copy the string literal into string space and will 
prevent alteration of program text during a subroutine call. 

Usually, the value returned by a USR function is the same 
type (integer, string, single precision or double precision) 
as the argument that was passed to it. However, calling the 
MAKINT routine returns the integer in [H,L] as the val 
the function, forcing the value returned by the function to 
be integer. To execute MAKINT, use the following sequence 
to return from the subroutine: 


PUSH HL 
LD HL,(xxx) 

EX (SP) ,HL 
RET 


; save value to be returned 
;get address of MAKINT routine 
;save return on stack and 
;get back [H,L] 

;return 


Iso, the argument of the function, regardless of its type, 
ay be forced to an integer by calling the FRCINT routine to 
et the integer value of the argument in [H,L]. Execute the 
ollowing routine: 


LD HL,SUB1 

PUSH HL 
LD HL,(xxx) 
JP (HL) 

SUB1: . 


•get address of subroutine 
;continuation 
;place on stack 
;get address of FRCINT 




C-4 


C.3 CALL STATEMENT 

EXCAS and EXBASIC user function calls may also be made with 
the CALL statement. The calling sequence used is the same 
as that in Exidy's FORTRAN, COBOL and BASIC compilers. 

A CALL statement with no arguments generates a simple "CALL" 
instruction. The corresponding subroutine should return via 
a simple "RET." (CALL and RET are Z80 opcodes - see any Z80 
reference manual for details.) 

A subroutine CALL with arguments results in a somewhat more 
complex calling sequence. For each argument in the CALL 
argument list, a parameter is passed to the subroutine. 
That parameter is the address of the low byte"of the 
argument. Therefore, parameters always occupy two bytes 
each, regardless of type. 

The method of passing the parameters depends upon the number 
of parameters to pass: 


1. If the number of parameters is less than or equal 
to 3, they are passed in the registers. Parameter 
1 will be in HL, 2 in DE (if present), and 3 in BC 
(if present). 

2. If the number of parameters is greater than 3, they 
are passed as follows: 

1. Parameter 1 in HL. 

2. Parameter 2 in DE. 

3. Parameters 3 through n in a contiguous data 
block. BC will point to the low byte of this 
data block (i.e., to the low byte of parameter 
3) . 

Note that, with this scheme, the subroutine must know how 
many parameters to expect in order to find them. 
Conversely, the calling program is responsible for passing 
the correct number of parameters. There are no checks for 
the correct number or type of parameters. 

If the subroutine expects more than 3 parameters, and needs 
to transfer them to a local data area, there is a system 
subroutine which will perform this transfer. This argument 
transfer routine is named $AT (located in the FORTRAN 
library, FORLIB.REL), and is called with HL pointing to the 
local data area, BC pointing to the third parameter, and A 
containing the number of arguments to transfer (i.e., the 
total number of arguments minus 2). The subroutine is 






C-5 


responsible for saving the first two parameters before 
calling $AT. For example, if a subroutine expects 5 


parameters, it 

should look 

like: x 

SUBR: LD 

(PI),HL 

;SAVE PARAMETER 1 

EX 

DE, HL 


LD 

(P2),HL 

;SAVE PARAMETER 2 

LD 

A,3 

;NO. OF PARAMETERS LEFT 

LD 

HL, P3 

;POINTER TO LOCAL AREA 

CALL 

$AT 

;TRANSFER THE OTHER THREE PARAMETERS 


[Body of subroutine] 



RET 


;RETURN 

1 TO CALLER 

PI: 

DEFS 

2 

;SPACE 

FOR PARAMETER 1 

P2: 

DEFS 

2 

;SPACE 

FOR PARAMETER 2 

P3: 

DEFS 

6 

;SPACE 

FOR PARAMETERS 3-5 

A listing of the argument transfer 

routine AT$ follows. 

00100 

• 

9 

ARGUMENT TRANSFER 


00200 

;[B,c] 

POINTS 

TO 3RD PARAM. 

00300 

; [h,L] 

POINTS 

TO LOCAL STORAGE FOR PARAM 3 

00400 

; [A] 

CONTAINS THE # OF 

PARAMS TO XFER (TOTAL-2) 

00500 





00600 





007 00 


GLOBAL 

$AT 


00800 

$AT: 

EX 

DE, HL 

;SAVE [H,L] IN [D,E] 

00900 


LD 

H, B 


01000 


LD 

L,C 

;[H,L] = PTR TO PARAMS 

01100 

ATI: 

LD 

C, (HL) 


01200 


INC 

HL 


01300 


LD 

B, (HL) 


01400 


INC 

HL 

; [B ,C] = PARAM ADDR 

01500 


EX 

DE, HL 

;[»,L] PTS TO LOCAL STORAGE 

01600 


LD 

(HL),C 


01700 


INC 

HL 


01800 


LD 

(HL),B 


01900 


INC 

HL 

;STORE PARAM IN LOCAL AREA 

02000 


EX 

DE, HL 

;SINCE GOING BACK TO ATI 

02100 


DEC 

A 

;TRANSFERRED ALL PARAMS? 

02200 


JR 

NZ,ATl-$ 

;NO, COPY MORE 

02300 


RET 


;YES, RETURN 
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When accessing parameters in a subroutine, don't forget that 
they are pointers to the actual arguments passed. 


NOTE 

It is entirely up to the 
programmer to see to it that 
the arguments in the calling 
program match in number , type , 
and length with the parameters 
expected by the subroutine. 
This applies to BASIC 
subroutines, as well as those 
written in assembly language. 


C.4 INTERRUPTS 

Assembly language subroutines can be written to handle 
interrupts. All interrupt handling routines should save the 
stack, register A-L and the PSW. Interrupts should always 
be re-enabled before returning from the subroutine., since 
an interrupt automatically disables all further interrupts 
once it is received. The user should be aware of which 
interrupt vectors are free in the particular version of 
BASIC that has been supplied. (Note to CP/M users: In CP/M 
BASIC, all interrupt vectors are free.) 
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APPENDIX D 

Disk filenames follow the normal CP/M naming conventions. 
All filenames may include A: or B: as the first two 

characters to specify a disk drive, otherwise the currently 
selected drive is assumed. A default extension of .BAS is 
used on LOAD, SAVE, MERGE and RUN <filename> commands if no 
appears in the filename and the filename is less than 9 
characters long. 

D.l FILES COMMAND 


Format: 


FILES[<filename>] 


Purpose: 

To print the 
current disk. 

names of 

files 

residing 

on 

the 

Remarks: 

If <filename> 

is omitted, all 

the files 

on 

the 


currently selected 

drive 

will be 

listed. 


<filename> is 

a string 

formula 

which may 

contain 


question marks (?) to match any character in 
filename or extension. An asterisk (*) as 
first character of the 
will match any file or any 


filename or 
extension. 


the 
the 
extension 


Examples: FILES 

FILES "*.BAS" 
FILES "B:*.*" 
FILES "TEST?.BAS" 


The last example will find TEST1 or TEST9, but 
not TEST10. The question mark matches only one 
character at a time. If you specify either name 
or type, you must specify both. 


D.2 RESET COMMAND 


Format: 
Purpose: 


RESET 

To close all 
information 
from a disk 


disk files and 
to a diskette 
drive. 


write the 
before it 


directory 
is removed 


Remarks: Always execute a RESET command before removing a 

diskette from a disk drive. Otherwise, when the 
diskette is used again, it will not have the 
current directory information written on the 
directory track. 


RESET closes all open files on all drives and 
writes the directory track to every diskette 
with open files. 







D.3 LOF FUNCTION 


D 


Format: LOF(<file number>) 


Action: Returns the number of records present .in the 

last extent read or written. If the file does 
not exceed one extent (128 records), then LOF 
returns the true length of the file. 

Example: 110 IF NUM%>L0F(1) THEN PRINT "INVALID ENTRY" 


D.4 EOF 


With CP/M, the EOF function may be used with random files. 
If a GET is done past the end of file, EOF will return -1. 
This may be used to find the size of a file using a binary 
search or other algorithm. 


D.5 MISCELLANEOUS 

1. CSAVE and CLOAD are not implemented in EXBASIC. 

2. To return to CP/M, use the SYSTEM command or 
statement. SYSTEM closes all files and then 
performs a CP/M warm start. Control-C always 
returns to EXBASIC, not to CP/M. 

3. The address FRCINT is at 103 hex and MAKINT is at 
105 hex in EXBASIC, (106, 108 in EXCAS). 
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APPENDIX E 


Converting Programs to EXBASIC 


If you have programs written in a BASIC other than EXCAS or EXBASIC, 
some minor adjustments may be necessary before running them with 
EXBASIC. Here are some specific things to look for when converting 
BASIC programs. 


E.l STRING DIMENSIONS 

Delete all statements that are used to declare the length of strings. 
A statement such as DIM A$(I,J), which dimensions a string array for J 
elements of length I, should be converted to the EXBASIC statement 
DIM A$(J). 

Some BASICS use a comma or ampersand for string concatenation. Each 
of these must be changed to a plus sign, which is the operator for 
EXBASIC string concatenation. 

In EXBASIC , the MID$, RIGHTS, and LEFTS functions are used to take 
substrings of strings. Forms such as A$(I) to access the Ith 
character in A$, or A$(I,J) to take a substring of A$ from position I 
to position J, must be changed as follows: 

Other BASIC EXBASIC 


X$=MID$(A$,1,1) 
X$=MID$(A$,I,J-I+l) 


X$=A$(I) 
X$=A$(I,J) 


If the substring reference is on the left side of an assignment and X$ 
is used to replace characters in A$, convert as follows: 


Other BASIC 


EXBASIC 


A$ (I) = X$ 

A$ (I,J9=X$ 


MID$(A$,1,1)=X$ 

MID$(A$,I,J-I+l)=X$ 
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E.2 MULTIPLE ASSIGNMENTS 

Some BASICS allow statements of the form: 

10 LET B=C=0 

to set B and C equal to zero. EXBASIC would interpret the second 
equal sign as a logical operator and set B equal to -1 if C equaled 0. 
Instead, convert this statement to two assignment statements: 

10 C=0:B=0 


E.3 MULTIPLE STATEMENTS 

Some BASICS use a backslash (\) to separate multiple statements on a 
line. With EXBASIC , be sure all statements on a line are separated 
by a colon (:). 


E.4 MAT FUNCTIONS 

Programs using the MAT functions available in some BASICS must be 
rewritten using FOR...NEXT loops to execute properly. 
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Summary of Error Codes and Error Messages 


Number 


Message 


1 NEXT without FOR 

A variable in a NEXT statement does not 
correspond to any previously executed, 

unmatched FOR statement variable. 

2 Syntax error 

A line is encountered that contains some 
incorrect sequence of characters (such as 
unmatched parenthesis, misspelled command or 
statement, incorrect punctuation, etc.). 

3 Return without GOSUB 

A RETURN statement is encountered for which 
there is no previous, unmatched GOSUB 

statement. 

4 Out of data 

A READ statement is executed when there are 
no DATA statements with unread data remaining 
in the program. 

5 Illegal function call 

A parameter that is out of range is passed to 
a math or string function. An FC error may 
also occur as the result of: 

1. a negative or unreasonably large 

subscript 

2. a negative or zero argument with LOG 

3. a negative argument to SQR 

4. a negative mantissa with a non-integer 
exponent 

5. a call to a USR function for which the 
starting address has not yet been given 

6. an improper argument to MID$, LEFT$, 
RIGHTS, IMP, OUT, WAIT, PEEK, POKE, TAB, 
SPC, STRINGS, SPACES, INSTR, or 
ON...GOTO. 
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6 


7 


8 


9 


10 


11 


Overflow 

The result of a calculation is too large to 
be represented in EXBASIC 's number format. 
If underflow occurs, the result is zero and 
execution continues without an error. 


Out of memory 

A program is too large, has too many FOR 
loops or GOSUBs, too many variables, or 
expressions that are too complicated. 


Undefined line 

A line reference in a GOTO, GOSUB, 
IF...THEN...ELSE or DELETE is to a 
non-existent line. 


Subscript out of 
An array element 
subscript that 
the array, or 
subscripts. 


range 

is referenced either with 
is outside the dimensions 
with the wrong number 


a 

of 

of 


Redimensioned array 

Two DIM statements are given for the same 
array, or a DIM statement is given for an 
array after the default dimension of 10 has 
been established for that array. 


Division by zero 

A division by zero is encountered in an 
expression, or the operation of involution 
results in zero being raised to a negative 
power. Machine infinity with the sign of the 
numerator is supplied as the result of the 
division, or positive machine infinity is 
supplied as the result of the involution, and 
execution continues. 


12 Illegal direct 

A statement that is illegal in direct mode is 
entered as a direct mode command. 


13 Type mismatch 

A string variable name is assigned a numeric 
value or vice versa; a function that expects 
a numeric argument is given a string argument 
or vice versa. 

14 Out of string space 

String variables exceed the allocated amount 
of string space. Use CLEAR to allocate more 
string space, or decrease the size and number 
of strings. 
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15 String too long 

An attempt is made to create a string more 
than 255 characters long. 

16 String formula too complex 

A string expression is too long or too 
complex. The expression should be broken 
into smaller expressions. 

17 Can't continue 

An attempt is made to continue a program 
that: 

1. has halted due to an error, 

2. has been modified during a break in 
execution, or 

3. does not exist. 

18 Undefined user function 

A USR function is called before the function 

definition (DEF statement) is given. 

19 No RESUME 

An error trapping routine is entered but 
contains no RESUME statement. 

20 RESUME without error 

A RESUME statement is encountered before an 
error trapping routine is entered. 

21 Unprintable error 

An error message is not available for the 
error condition which exists. This is 
usually caused by an ERROR with an undefined 
error code. 

22 Missing operand 

An expression contains an operator with no 
operand following it. 

23 Line buffer overflow 

An attempt is made to input a line that has 
too many characters. 

26 FOR without NEXT 

A FOR was encountered without a matching 
NEXT. 
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29 WHILE without WEND 

A WHILE statement does not have a matching 

WEND. 

30 WEND without WHILE 

A WEND was encountered without a matching 

WHILE. 

Disk Errors (Not in EXCAS) 

50 Field overflow 

A FIELD statement is attempting to allocate 
more bytes than were specified for the record 
length of a random file. 

51 internal error 

An internal malfunction has occurred in Disk 
EXBASIC. Report to Exidy the conditions under 
which the message appeared. 

52 Bad file number 

A statement or command references a file with 
a file number that is not OPEN or is out of 
the range of file numbers specified at 
initialization. 

53 File not found 

A LOAD, KILL or OPEN statement references a 
file that does not exist on the current disk. 

54 Bad file mode 

An attempt is made to use PUT, GET, or LOF 
with a sequential file, to LOAD a random file 
or to execute an OPEN with a file mode other 
than I, 0, or R. 

55 File already open 

A sequential output mode OPEN is issued for a 
file that is already open; or a KILL is 
given for a file that is open. 

57 Disk I/O error 

An I/O error occurred on a disk I/O 
operation. It is a fatal error, i.e., the 
operating system cannot recover from the 
error. 

58 File already exists 

The filename specified in a NAME statement is 
identical to a filename already in use on the 
disk. 


/ 
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61 Disk full 

All disk storage space is in use. 

62 Input past end 

An INPUT statement is executed after all the 
data in the file has been INPUT, or for a 
null (empty) file. To avoid this error, use 
the EOF function to detect the end of file. 

63 Bad record number 

In a PUT or GET statement, the record number 
is either greater than the maximum allowed 
(32767) or equal to zero. 

64 Bad file name 

An illegal form is used for the filename with 
LOAD, SAVE, KILL, RUN, or OPEN (e.g., a filename 
with too many characters). 

66 Direct statement in file 

A direct statement is encountered while 
LOADing an ASCII-format file. The LOAD is 
terminated. 

67 Too many files 

An attempt is made to create a new file 
(using SAVE or OPEN) when all 255 directory 
entries are full. 





G-l 


APPENDIX G 

Mathematical Functions 


Derived Functions 


Functions that are not intrinsic to EXBASIC may be calculated 
as follows. 


Function 


EXBASIC Equivalent 


SECANT 
COSECANT 
COTANGENT 
INVERSE SINE 
INVERSE COSINE 
INVERSE SECANT 

INVERSE COSECANT 

INVERSE COTANGENT 
HYPERBOLIC SINE 
HYPERBOLIC COSINE 
HYPERBOLIC TANGENT 
HYPERBOLIC SECANT 
HYPERBOLIC COSECANT 
HYPERBOLIC COTANGENT 
INVERSE HYPERBOLIC 
SINE 

INVERSE HYPERBOLIC 
COSINE 

INVERSE HYPERBOLIC 
TANGENT 

INVERSE HYPERBOLIC 
SECANT 

INVERSE HYPERBOLIC 
COSECANT 

INVERSE HYPERBOLIC 
COTANGENT 


SEC(X)=1/COS(X) 

CSC(X)=1/SIN(X) 

COT(X)=1/TAN(X) 

ARCSIN(X)=ATN(X/SQR(-X*X+1)) 

ARCCOS(X)=-ATN (X/SQR(-X*X+1))+1.5708 
ARCSEC(X)=ATN(X/SQR(X*X-1)) 

+SGN(SGN(X)-1)*1.5708 
ARCCSC(X)=ATN(X/SQR(X*X-1)) 

+ (SGN(X)-1)*1.5708 
ARCCOT(X)=ATN(X)+1.5708 
SINH(X)=(EXP(X)-EXP(-X))/2 
COSH(X)=(EXP(X)+EXP(-X) )/2 
TANH(X)=EXP(-X)/EXP(X)+EXP(-X))*2+1 
SECH(X)=2/(EXP(X)+EXP(-X)) 

CSCH (X) =2/ (EXP (X) - EXP (-X) ) 

COTH(X)=EXP(-X)/(EXP(X)-EXP(-X))*2+1 

ARCSINH(X)=LOG(X+SQR(X*X+l)) 

ARCCOSH(X)=LOG(X+SQR(X*X-1) 

ARCTANH(X)=LOG((1+X)/(1-X))/2 

ARCSECH(X)=LOG((SQR(-X*X+1)+1)/X) 

ARCCSCH(X)= LOG((SGN(X)*SQR(X*X+1)+1)/X 

ARCCOTH(X)=LOG((X+1)/(X-1))/2 
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APPENDIX H 

ASCII Character Codes 


ASCII 

Code Character 


ASCII 

Code Character 


ASCII 

Code Character 


000 

NUL 

001 

SOH 

002 

STX 

003 

ETX 

004 

EOT 

005 

ENQ 

006 

ACK 

007 

BEL 

008 

BS 

009 

HT 

010 

LF 

011 

VT 

012 

FF 

013 

CR 

014 

SO 

015 

SI 

016 

DLE 

017 

DC1 

018 

DC 2 

019 

DC 3 

020 

DC 4 

021 

NAK 

022 

SYN 

023 

ETB 

024 

CAN 

025 

EM 

0 26 

SUB 

027 

ESC 

0 28 

FS 

0 29 

GS 

030 

RS 

031 

US 

032 

SPACE 

033 

i 

034 

II 

035 

# 

036 

$ 

037 

% 

038 

& 

039 

1 

040 

( 

041 

) 

042 

* 


ASCII codes are in 
LF=Line Feed, FF=F 


043 + 

044 , 

045 
046 

047 / 

048 0 

049 1 

050 2 

051 3 

052 4 

053 5 

054 6 

055 7 

056 8 

057 9 

058 
059 

060 < 

061 

062 > 

063 ? 

064 @ 

065 A 

066 B 

067 C 

068 D 

069 E 

070 F 

071 G 

072 H 

073 I 

074 J 

075 K 

076 L 

077 M 

078 N 

079 0 

080 P 

081 Q 

082 R 

083 S 

084 T 

085 U 


decimal. 

irm Feed, CR=Carriag 


086 

V 

087 

W 

088 

X 

089 

Y 

090 

Z 

091 

[ 

092 

\ 

093 

] 

094 


095 

< 

096 

■ 

097 

a 

098 

b 

099 

c 

100 

d 

101 

e 

102 

f 

103 

g 

104 

h 

105 

i 

106 

j 

107 

k 

108 

1 

109 

m 

110 

n 

111 

o 

112 

P 

113 

q 

114 

r 

115 

s 

116 

t 

117 

u 

118 

V 

119 

w 

120 

X 

121 

y 

122 

z 

123 

t 

124 

125 

126 

1 

127 

D 


Return, DEL=Rubout 
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APPENDIX I 

Reserved Words for EXBASIC 5.04/2 and EXCAS 5.11/2, 

Listed Alphabetically 

Words followed by one asterisk denote those words used in Disk BASIC 
only. Those words underlined are used only for Extended Cassette 
BASIC and those followed by two asterisks are commands Exidy has 
added to the Microsoft version. 

Special Note Key: * - EXBASIC only 

+ - EXCAS only 

** - Exidy's addition 


Word 

Keyword Code 

Note 


Hex 

Decimal 


I 

DB 

219 


* 

F4 

244 


+ 

F2 

242 


- 

F3 

243 


/ 

F5 

245 


< 

FI 

241 


s 

F0 

240 


> 

EF 

239 


ABS 

87 

134 


AND 

F7 

247 


ASC 

95 

149 


ATN 

8E 

142 


AUTO 

AB 

171 


BAUD 

BC 

188 

** 

BYE 

B2 

178 

** 

CALL 

B6 

182 


CDBL 

9E 

158 


CHAIN 

B9 

18 5- 

* 

CHR$ 

96 

150 


CINT 

9C 

156 


CLEAR 

92 

146 


CLOAD 

8C 

156 

+ 

CLOSE 

C3 

195 

* 

COMMON 

..B8 

184 

* 

CONT 

9A 

154 


COS 

8C 

140 


C3AVE 

9B 

155 

+ 

CSNG 

9D 

157 


CURSOR 

B3 

179 

** 

CVD 

AD 

173 

* 

CVI 

AB 

171 

* 

CVS 

AC 

172 

* 

DATA 

84 

132 


DEF 

98 

152 


DEFDBL 

B0 

176 


DEFINT 

AE 

174 


DEFSNG 

AF 

175 


DEFSTR 

AD 

173 


DELETE 

AA 

170 



Word _ Keyword Code Note 



Hex 

Decimal 


DIM 

86 

134 


EDIT 

A7 

167 


ELSE 

A2 

162 


END 

81 

129 


EOF 

AF 

175 

* 

EQV 

FA 

250 


ERASE 

A6 

166 


ERL 

D6 

214 


ERR 

D7 

215 


ERROR 

A8 

168 


EXP 

8B 

139 - 


FIELD 

C0 

192 

* 

FILES 

C6 

198 

* 

FIX 

9F 

159 


FN 

D3 

211 


FOR 

82 

130 


FRE 

8F 

143 


GET 

Cl 

193 

* 

GO TO 

89 

137 


GOSUB 

8D 

141 


GOTO 

89 

137 


HEX$ 

9A 

154 


IF 

8B 

139 


IMP 

FB 

251 


INKEY$ 

DD 

221 

+ 

INP 

90 

144 


INPUT 

85 

133 


INSTR 

DA 

218 


INT 

85 

133 


KILL 

C8 

200 

★ 

LEFT$ 

81 

129 


LEN 

92 

146 


LET 

88 

136 


LINE 

B1 

177 


LIST 

93 

147 


LLIST 

9F 

159 


LOAD 

C4 

196 

★ 

LOC 

B0 

176 

★ 

LOF 

B1 

177 

★ 
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Word 

Keyword Code 

Note 

Word 

Keyword Code 

Note 


Hex 

Decimal 



Hex 

Decimal 


LOG 

BA 

138 


RND 

88 

136 


LPOS 

9B 

155 


RSET 

CA 

202 

* 

LPRINT 

9E 

158 


RUN 

8A 

138 


LSET 

C9 

201 

* 

SAVE 

CB 

203 

* 

MERGE 

C5 

197 

* 

SERIAL 

A0 

160 

* -k 

MID$ 

83 

131 


SGN 

84 

132 


MKD$ 

B4 

180 

* 

SIN 

89 

137 


MKI$ 

B2 

178 

* * 

SPACE$ 

98 

152 


MKS$ 

B3 

179 

* 

SPC( 

D4 

212 


MOD 

FC 

252 


SQR 

87 

135 


MAME 

C7 

199 

* 

STEP 

D1 

209 


NEW 

94 

148 


STOP 

90 

144 


NEXT 

83 

131 


STR$ 

93 

147 


NOT 

D5 

213 


STRING$ 

D8 

216 


NULL 

96 

150 


SWAP 

A5 

165 


OCT$ 

00 

153 


SYSTEM 

BD 

189 

* 

ON 

95 

149 


TAB ( 

D0 

208 


OPEN 

BF 

191 

* 

TAN 

8D 

141 


OPTION 

BA 

186 


THEN 

CF 

207 


OR 

F8 

248 


TO 

C3 

206 


OUT 

9D 

157 


TROFF 

A4 

164 


PEEK 

97 

151 


TRON 

A3 

163 


POKE 

99 

153 


USING 

D9 

217 


POS 

91 

145 


USR 

D2 

210 


PRINT 

91 

145 


VAL 

94 

148 


PUT 

C2 

194 

* 

VARPTR 

DC 

220 


RANDOMIZE 

BB 

187 


WAIT 

97 

151 


READ 

98 

135 


WEND 

85 

181 


REM 

8F 

143 


WHILE 

B4 

180 


RENUM 

AC 

172 


WIDTH 

A1 

161 


RESET 

CC 

204 

* 

WRITE 

B7 

183 

* 

RESTORE 

8C ' 

140 


XOR 

F9 

249 


RESUME 

A9 

169 


\ 

FD 

253 


RETURN 

8E 

142 


a 

F6 

246 


RIGHT$ 

82 

130 













Reserved Words for EXBASIC 5.04/2 and EXCAS 5.11/2 


1-3 


Listed Numerically 


Word 

Keyword Code 

Word 

Keyword Code 

Word 

Keyword Code 


Hex 

Decimal 


Hex 

Decimal 


Hex 

Decimal 

END 

81 

129 

HEX$ 

9 A 

154 

SYSTEM 

8D 

189 

LEFT$ 

81 

129 

CONT 

9A 

154 

OPEN 

8F 

191 

FOR 

82 

130 

LPOS 

9B 

155 

FIELD 

C0 

192 

RIGHTS 

82 

130 

CSAVE 

9B 

155 

GET 

Cl 

19 3 

NEXT 

83 

131 

CINT 

9C 

156 

PUT 

C2 

194 

MID$ 

83 

131 

CLOAD 

9C 

156 

CLOSE 

C3 

195 

DATA 

94 

132 

CSNG 

9D 

157 

LOAD 

C4 

196 

SGN 

94 

132 

OUT 

9D 

157 

MERGE 

C5 

197 

INT 

85 

133 

LPRINT 

9E 

158 

FILES 

CS 

198 

INPUT 

95 

133 

CDBL 

9E 

159 

NAME 

C7 

199 

DIM 

86 

134 

FIX 

9F 

159 

KILL 

C8 

200 

ABS 

86 

134 

LLIST 

9F 

159 

LSET 

C9 

201 

READ 

87 

135 

SERIAL 

A0 

160 

RSET 

CA 

202 

SQR 

87 

135 

WIDTH 

A1 

161 

SAVE 

CB 

203 

LET 

88 

136 

ELSE 

A2 

162 

RESET 

CC 

204 

RND 

88 

136 

TRON 

A3 

163 

TO 

CE 

206 

GOTO 

89 

137 

TROFF 

A4 

164 

THEN 

CF 

207 

SIN 

89 

137 

SWAP 

A5 

165 

TAB ( 

D0 

208 

GO TO 

89 

137 

ERASE 

A6 

166 

STEP 

01 

209 

RUN 

8A 

138 

EDIT 

A7 

167 

USR 

D2 

210 

LOG 

8A 

138 

ERROR 

A8 

169 

FN 

D3 

211 

EXP 

SB 

139 

RESUME 

A9 

169 

SPC( 

D4 

212 

IF 

8B 

139 

DELETE 

AA 

170 

NOT 

D5 

213 

COS 

8C 

140 

AUTO 

AB 

171 

ERL 

D6 

214 

RESTORE 

8C 

140 • 

CVI 

AB 

171 

ERR 

D7 

215 

GOSUB 

8D 

141 

CVS 

AC 

172 

STRINGS 

D8 

216 

TAN 

8D 

141 

RENUM 

AC 

172 

USING 

D9 

217 

RETURN 

8E 

142 

DEFSTR 

AD 

173 

INSTR 

DA 

218 

ATN 

8E 

142 

CVD 

AD 

173 

• 

DB 

219 

REM 

8F 

143 

DEFINT 

AE 

174 

VARPTR 

DC 

220 

FRE 

8F 

143 

DEFSNG 

AF 

175 

INKEYS 

DD 

221 

STOP 

90 

144 

EOF 

AF 

175 

> 

EF 

239 

INP 

90 

144 

LOC 

B0 

176 

- 

F0 

240 

POS 

91 

145 

DEFD8L 

B0 

176 

< 

FI 

241 

PRINT 

91 

145 

LOF 

B1 

177 

+ 

F2 

242 

CLEAR 

92 

146 

LINE 

31 

177 

- 

F3 

24 3 

LEN 

92 

146 

MKIS 

B2 

178 

* 

F4 

244 

STR$ 

93 

147 

BYE 

B2 

178 

/ 

F5 

245 

LIST 

93 

147 

MKS$ 

B3 

179 

A 

F6 

246 

NEW 

94 

148 

CURSOR 

B3 

179 

AND 

F7 

247 

VAL 

94 

148 

WHILE 

B4 

180 

OR 

F8 

248 

ASC 

95 

149 

MKD$ 

B4 

180 

XOR 

F9 

249 

ON 

95 

149 

WEND 

B5 

181 

EQV 

FA 

250 

NULL 

96 

150 

CALL 

B6 

182 

IMP 

FB 

251 

CHR$ 

96 

150 

WRITE 

B7 

183 

MOD 

FC 

252 

■»EEK 

97 

151 

COMMON 

B8 

184 

\ 

FD 

253 

./AIT 

97 

151 

CHAIN 

B9 

185 




DEF 

98 

152 

OPTION 

BA 

186 




SPACES 

98 

152 

RANDOMIZE 

BB 

187 




OCT$ 

99 

153 

BAUD 

BC 

188 




POKE 

99 

153 
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APPENDIX J 


EXIDY BASIC CONVERSION ROUTINES 
RM2EX, EXT2DSK, ROM2DSK 

J.l Introduction to RM2EX , Converting Exidy Standard ROM BASIC 
to EXBASIC (Disk BASIC) 

Exidy's RM2EX is a tape utility program which converts Exidy 
Standard (ROM PAC) BASIC program tapes to Exidy Extended Cassette 
BASIC program tapes. This utility is necessary since the one- 
stroke reserved words and certain format conventions for Standard 
BASIC differ from Extended Cassette BASIC. This utility reads in a 
tape file from a cassette recorder, checks to see that the file was 
written by Exidy Standard BASIC, converts the reserved words and 
applicable formats, and writes a tape file that can be CLOADed by 
Extended Cassette BASIC. 

Note: The BASIC ROM PAC need not be plugged in for this operation. 


j.1.1 Converting 

RM2EX is provided on cassette tape. To load RM2EX, use either the 
Sorcerer Monitor "LO" (Load) command or the "LOG" (Load and Go) 
command. If "LO" is used, after loading is complete, enter the 
command "GO 0" to execute the program. With LOG, this step is not 
necessary. 

The program signs on and requests a filename to seek from the ROM PAC 
program tape. If you enter only a carriage return at this point, the 
program loads and converts the first Standard BASIC file 
encountered. When a specific file name is entered, the title of 
each file found appears on screen but only the file specified is 
loaded, as long as it is a BASIC program. 

All cassette tape I/O is performed on cassette unit #1. Unit #2 is 
not used. If the source tape was created at 300 baud rate instead of 
the default 1200 baud, you must set the baud rate by using the Monitor 
command "SE T=l". Motor control of the tape recorder is supported 
if you have this capability configured in your system. Motor 
control is not mandatory, however. After the ROM PAC file is loaded 
into RAM and converted to Extended Cassette BASIC program format, 
you are asked to prepare the cassette recorder for recording the. new 
Extended Cassette BASIC program file. After this tape is written, 
you are asked if you want to repeat the conversion process. If not, 
control is returned to the Sorcerer's Monitor. 

The following is a summary of those steps just described to convert 
tapes with RM2EX: 
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1. Load RM2EX from cassette unit #1 using "LO" (and "GO 0") or "LOG" . 

2. The utility signs-on and asks for a filename. A 5 character (or 
less) name followed by a carriage return is expected. If more than 5 
characters are entered, the first 5 are used. Lower case letters 
are interpreted as upper case. If only a carriage return is 
entered, the first BASIC file is loaded and converted. To correct a 
mistake while typing, press shift and rub keys simultaneously to 
erase the character. 

3. After the requested file is found, it is loaded into memory, the 
reserved words and certain formats are converted, and a message 
appears instructing the operator to ready the cassette recorder for 
writing a new tape file (readable by Extended Cassette BASIC) . Once 
your cassette is ready, press any key to begin writing the newly 
converted file to tape. 

4. When the new file is written to tape, a message asks if more 
conversions are desired. A "Y" response re-starts the process at 
the point where another file name is requested. An "N" response 
warm-starts the Monitor. 


J.1.2 Example Run 

The following examples demonstrate the use of RM2EX. The first one 
shows the response of a specific file name. Notice it only copies 
that name with C2 file type corresponding to ROM PAC BASIC files. 
The second example shows only a carriage return as input, with an 
example of a CRC error. User input is underlined. 


> LOG < return > 

FOUND - RM2EX 067A 0000 0000 

LOADING - 

NAME FILE BLCK ADDR GOADDRS 
RM2EX 067A 0000 0000 


Exidy Standard BASIC to Extended Cassette BASIC 
Tape to tape Conversion Program. 

Copyright (C) 1980 by Exidy, Inc. Ver 1.0 

Filename? PROGN < return > 

Place Exidy Standard BASIC program tape 
in recorder, depress play, and hit any key. 
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Name 

Id 

Type 

Size 

Addr 

Goaddr 



NOPRG 

55 

C2 

1204 

01D5 

0000 

(wrong 

filename) 

PROGN 

55 

C5 

0537 

01D5 

0000 

(wrong 

type) 

PROGN 

55 

C2 

0672 

01D5 

0000 

(this 

matches) 


Reading... 

Converting... 

Place tape in recorder to write Extended 
Cassette BASIC program, depress record, 
and hit any key. < any key > 

Writing... 

More (Y/N)? Y 

Filename? < return > 

Place Exidy Standard BASIC program tape 
in recorder, depress play, and hit any key. 

Name Id Type Size Addr Goaddr 


ANYPG 55 C2 1492 01D5 0000 
Reading... 

Tape CRC error. Bytes successfully read: 0F00 

Convert only partial file (Y/N)? Y (save only up to CRC error) 

Converting... 

Place tape in recorder to write Extended 
Cassette BASIC program, depress record, 
and hit any key.< any key > 

Writing... 

More (Y/N)? N 
> 


J.1.3 Error Messages 

Two conditions generate an error message and one condition causes a 
warning. When reading a file from cassette, CRC checking is 
performed and if the CRC generated from a data block being read does 
not agree with the CRC recorded with the data block when it was 
written, the following message appears: 
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Tape CRC error. Bytes successfully read: NNNN 

Convert only partial file (Y/N)? 

At this point, the utility asks if you would like only that data 
successfully read to be converted and saved. You should first 
attempt to conve r t the entire tape ag ain. Todo th is, type N, and the 
program asks "More (Y/N)?". Respond with a Y and the process will 
repeat. Try adjusting the tone and volume control on the recorder. 

If you have attempted to convert the program a few times and continue 
to get the CRC error message, after adjusting the volume and tone 
settings, respond to the "Convert only partial file (Y/N) ?" question 
with a Y. In this case only part of your tape will be converted. 
This is an alternative to losing all your file. 

Converting an Exidy Standard BASIC program to an Extended Cassette 
program usually means a slight enlargement of the program. If in 
the unlikely event this enlargement causes the program to exceed 
available memory space, this message appears: 

Converted file exceeds buffer space. 

The utility aborts the conversion and asks the question "More (Y/N) 
?". The only remedy is to input a smaller program tape. Note that 
this error condition occurs only if the source tape fits into memory 
but the converted file does not. More likely, if the program is 
exceedingly large, a warning indicates that the Standard BASIC tape 
contains a file that exceeds memory space and a warning is issued by 
the utility: 

Large program truncated to fit in memory. 

Loading still continues but whatever cannot fit in memory is 
"chopped off". 

Another message appears after depressing the escape key (or cntrl-c) 
while reading in a tape: 

Operator requests read abort. 

This action terminates the input phase of the conversion process and 
what had been read up until then is lost. The utility then asks the 
familiar "More (Y/N) ?" and you may restart a conversion or exit the 
program. 
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J.2 Introduction to EXT2DSK, Converting EXCAS (Exidy Extended 
Cassette BASIC) to EXBASIC (Disk BASIC) 

EXT2DSK is a disk utility program converting Exidy Extended Cassette 
BASIC program tapes to Exidy Disk BASIC (EXBASIC) disk files. This 
utility is necessary because the disk BASIC cannot access tape files 
only disk files. This utility reads in a program tape file from 
cassette recorder, checks to see that the file was written by Exidy 
Extended Cassette BASIC, and writes to disk a file that can be LOADed 
and RUN by Exidy Disk BASIC. 

j.2.1 Converting 

EXT2DSK is provided on CP/M compatible disk. To load EXT2DSK, enter 
CP/M by giving the GO XXXX controller boot address. Next to the 
"A>", type "EXT2DSK", that is A> EXT2DSK <return> (your input 
underlined). The program then signs on and requests a filename to 
seek from tape. If you enter a carriage return and no filename, the 
first Extended Cassette BASIC program tape file encountered is 
loaded and converted. Otherwise, the utility displays the header 
for all files found but only loads a file if it is on Extended Casette 
file type and the file name matches the name given by the user. All 
cassette tape I/O is performed on cassette unit #1. 

Note that ROM BASIC files are ignored. Use the R0M2DSK utility to 
convert those. 

If the source tape was created at 300 baud instead of the default 1200 
baud, set the baud rate with the monitor command SE T=1 (to enter the 
monitor,’reset after booting CP/M. Warmstart CP/M after setting 
baud rate with GO 0.) Although motor control of the tape recorder is 
not mandatory, it is supported if you haves this capability 
configured in your system. After the file has been converted to 
Disk BASIC program format, the program file is automatically written 
to disk on the logged in drive with the filename NAME.BAS, where NAME 
is the 1-5 character name you have assigned. You are then asked if 
you want to repeat the conversion process. If not, specify N and 
control is returned to CP/M. 

The following is a summary of those steps just described to convert 
Extended Cassette tapes to disk. 
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1. Type EXT2DSK on the CP/M command line. 

2. The utility signs-on and asks the user for a filename, 5 characters 
(or less) . After typing this in, hit return. If - more than 5 
characters are entered, only the first 5 are used. Lower case 
letters are interpreted as upper case. If only a carriage return is 
entered, any name found on a tape file header will "match". To 
correct any typing errors, press shift and rub keys simultaneously. 

3. After the requested filename has been found in a tape file header, 
the tape file loads into memory, converting the reserved words and 
certain formats. A CP/M file readable by EXBASIC is then written. 

4. When the new file has been written to disk, a message appears 
asking if more conversions are desired. A "Y" response re-starts 
the process at the point where a. filename is requested. An "N" 
response warm starts CP/M. 


J.2.2 Example Run 

>G0 XXXX <return> (where XXXX is the boot address) 


A>EXT2DSK <return> 


Exidy Extended Cassette BASIC to Disk BASIC 
Tape to Disk Conversion Program. 

Copyright (C) 1980 by Exidy, Inc. Ver 1.0 

Filename? PROGN<return> 

Place Exidy Extended Cassette BASIC program tape 


in recorder, depress 

play, and hit any key. 


Name 

Id Type Size 

Addr Goaddr 


NOPRG 

55 C2 1204 

01D5 0000 

(wrong filename) 

PROGN 

55 C5 0537 

01D5 0000 

(match) 


Reading from tape... 
Converting... 

Writing to disk... 
More (Y/N)? Y 
Filename? <cr> 
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Place Exidy Extended Cassette BASIC program tape 
in recorder, depress play, and hit any key. 

Name Id Type Size Addr Goaddr 


ANYPG 55 C5 1492 01D5 0300 
Reading from tape... 

Tape CRC error. Bytes successfully read: 0F00 

Convert only partial file (Y/N)? Y (save only up to CRC error) 
Converting.. .' 

Writing to disk... 

More (Y/N)? N 
A> 


J.2.3 Error Messages 

Several conditions display an error message and one condition causes 
a warning. When reading a file from cassette, CRC checking is 
performed and if the CRC generated from a data block being read does 
not agree with the CRC recorded with the data block when it was 
written, the following message appears: 

Tape CRC error. Bytes successfully read: NNNN 

Convert only partial file (Y/N)? 

Data up to the error was read successfully, when these errors occur. 
At this point, the utility asks if you would like only the data 
successfully read to be converted and saved. If the response is 
"Y", a difficult tape can be partially converted. However, you 
should attempt to convert the entire tape repeatedly before turning 
to this last resort. If you respond with "N" , the utility asks "More 
(Y/N)?". To try the conversion again, respond with "Y". Adjusting 
the volume and tone control settings can sometimes overcome the CRC 
error problem. 

Converting an Exidy Extended Cassette BASIC program to a Disk BASIC 
program may mean a slight enlargement of the program. If in the 
unlikely event this enlargement causes the program to exceed 
available memory space, the following is displayed: 


Converted file exceeds buffer space. 
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The utility aborts the conversion and asks the question "More (Y/N) 
?" . The only remedy for this is to input a smaller program tape. It 
should be noted that this error condition will occur only if the 
source tape fits into memory but the converted file does not. 

More likely, if the program is exceedingly large, a warning will be 
displayed indicating that the Extended Cassette BASIC tape contains 
a file that exceeds memory space and a warning is issued by the 
utility: 

Large program truncated to fit in memory. 

Loading proceeds anyway but whatever cannot fit in memory is 
"chopped off". 

Another message appears when the user depresses the escape key (or 
cntrl-c) while reading in a tape: 

Operator requests read abort. 

This action terminates the input phase of the conversion process and 
what had been read up until then is lost. The utility then asks the 
familiar "More (Y/N) ?" and the user may restart a conversion or exit 
the program. 

Two other disk related errors may occur. If there is no remaining 
directory space, the following message appears: 

Cannot open disk file. 

If a write failure occurs, other than directory full, the following 
appears: 

Disk write error. 


In both cases, the error is fatal and control is returned to CP/M. 
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J.3 Introduction to R0M2DSK, Converting Exidy Standard ROM BASIC 
to EXBASIC (Disk BASIC) Conversion Program 

ROM2DSK is the utility program which converts Exidy Standard (Rom- 
Pac) BASIC disk-based program tapes to Exidy Disk BASIC (EXBASIC) 
disk files. This utility replaces and supercedes all versions of 
BASCNVRT. This utility is needed because the one- stroke reserved 
words and certain program formats for Standard BAdIC differ from 
those used in Disk BASIC. This utility reads in a tape file from 
cassette recorder, checks to see that the file was written by Exidy 
Standard BASIC, converts the reserved words and applicable formats, 
and writes to disk a file that can be LOADed and RUN by Exidy Disk 
BASIC. 

NOTE: The ROM PAC need not be plugged in for this operation. 


J.3.1 Converting 

R0M2DSK is supplied on Exidy CP/M compatible disk. To access 
R0M2DSK, enter CP/M by booting your system (GO XXXX, where XXXX is 
your disk controller address). Next to the A>, enter "R0M2DSK , 
that is. A>R0M2DSK <return> (your input is underlined). The 
program to signs on and asks for the name of the tape file you wish to 
convert. If a carriage return is entered at this point with no 
filename given, the first Standard BASIC program tape file 
encountered will be loaded and converted. Otherwise, the utility 
displays the header for all files found but only converts a file if 
it's type it is a ROM BASIC file and the file name matches the name 
given by the user. Note Extended Casette.files are ignored. Use 
EXT2DSK for this conversion. 

All cassette tape I/O is performed on cassette unit #1. If the 
source tape was created at 300 baud instead of the default 1200 baud, 
enter the monitor after booting CP/M by RESETing, and set the baud 
with the monitor command SET T=1 and then warmstart CP/M with GO 0. 
Motor control of the tape recorder is supported if you have this 
capability configured in your system. Motor control is not 
mandatory, however. After the file has been converted to Disk BASIC 
program format, the program file is automatically written to disk. 
The file is written to the logged-in disk with the filename NAME.BAS 
where "NAME" is the 1-5 character name of the tape file. You are 
then asked if you want to repeat the conversion process. If not, 
control is returned to CP/M. 
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The following is a summary of steps used when converting tapes with 
R0M2DSK: 

1. Type R0M2DSK on the CP/M command line. 

2. The utility signs-on and asks the user for a filename. A 5 
character (or less) name followed by a carriage return is expected. 
If more than 5 characters are entered, only the first 5 are used. 
Lower case characters are interpreted as upper case. If only a 
carriage return is entered, any name found on a tape file header 
"matches". To correct typographical errors, press shift and rub 
keys simultaneously. 

3. After the requested filename has been found in a tape file header, 
the tape file is loaded into memory, the reserved words and certain 
formats are converted, and a CP/M file readable by EXBASIC is 
written. 

4. When the new file has been written to disk, a message appears 
asking if more conversions are desired. A "Y" response re—starts 
the process at the point where a filename is requested. An "N" warm- 
starts CP/M. 


•J.3.2 Example Run 

(User input is underlined:) 

> G0 XXXX <return> 

A> R0M2DSK <return> 

Exidy Standard BASIC to Disk BASIC 
Tape to Disk Conversion Program. 

Copyright (C) 1980 by Exidy, Inc. Ver 1.0 

Filename? PROGN 

Place Exidy Standard BASIC program tape 
in recorder, depress play, and hit any key. 


Name 

Id 

Type 

Size 

Addr 

Goaddr 


NOPRG 

55 

C2 

1204 

01D5 

0000 

(wrong filename) 

PROGN 

55 

C5 

0537 

01D5 

0000 

(wrong type,.not ROM BASIC) 

PROGN 

55 

C2 

0672 

01D5 

0000 

(this matches) 


Reading from tape... 
Converting... 

Writing to disk... 
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More (Y/N)? Y 
Filename? <cr> 

Place Exidy Standard BASIC program tape 
in recorder, depress play, and hit any key. 

Name Id Type Size Addr Goaddr 

ANYPG 55 C2 1492 01D5 0000 

Reading from tape... 

Tape CRC error. Bytes successfully read: 0F00 

Convert only partial file (Y/N)? Y (save only up to CRC error) 
Converting... 

Writing to disk... 

More (Y/N)? N 
A> 


J.3.3 Error Messages 


Several conditions cause an error message to appear and one 
condition displays a warning. When reading a file from cassette, 
CRC checking is performed and if the CRC generated from a data block 
being read does not agree with the CRC recorded with the data block 
when it was written, the following message appears: 

Tape CRC error. Bytes successfully read: NNNN 

Convert only partial file (Y/N)? 

Data up to the error was successfully read. 

At this point, the utility asks if you would like only the data 
successfully read to be converted and saved. If the response is 
"Y" , a difficult tape can be partially converted. However, you 
should attempt to convert the entire tape repeatedly before turning 
to this last resort. If you respond with "N" , the program asks "More 
(Y/N)?". To try the conversion again, respond with "Y". Adjusting 
the volume and tone control settings or checking recorder 
connections can sometimes overcome the CRC error problem. 









